@@ -145,7 +145,7 @@ exitToHtmlBuilder exit =
146compileToBuilder :: Artifacts -> B.ByteString -> Either Exit.Worker B.Builder
146compileToBuilder :: Artifacts -> B.ByteString -> Either Exit.Worker B.Builder
147compileToBuilder (Artifacts interfaces objects) source =
147compileToBuilder (Artifacts interfaces objects) source =
148− case Parse.fromByteString Pkg.dummyName source of
148+ case Parse.fromByteString Parse.Application source of
149 Left err ->
149 Left err ->
150 Left $ toInputError N._Main source (Error.BadSyntax err)
150 Left $ toInputError N._Main source (Error.BadSyntax err)