@@ -121,7 +121,7 @@ generateMonolith mode maybeOutput (Summary.Summary _ project _ _ _) graph rootNa
122 case maybeOutput of
122 case maybeOutput of
123 Nothing ->
123 Nothing ->
124− IO.writeBuilder "elm.js" monolith
124+ IO.writeBuilder "index.html" (Html.sandwich name monolith)
126 Just output_ ->
126 Just output_ ->
127 case output_ of
127 case output_ of