on master help sign in
update worker for new parsing API
9220c7fEvan Czaplicki
worker/src/Main.hs+1−1
@@ -145,7 +145,7 @@ exitToHtmlBuilder exit =
145
145
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)
151
151