@@ -44,7 +44,7 @@ import CodeGen.IL.Printer
44import Tests
44import Tests
46data Command = Build | Run (Maybe String)
46data Command = Build | Run (Maybe String)
48parseJson :: Text -> Value
48parseJson :: Text -> Value
49parseJson text
49parseJson text
50 | Just fileJson <- decode . L.encodeUtf8 $ L.fromStrict text = fileJson
50 | Just fileJson <- decode . L.encodeUtf8 $ L.fromStrict text = fileJson
@@ -54,7 +54,7 @@ jsonToModule :: Value -> Module Ann
54jsonToModule value =
54jsonToModule value =
55 case parse moduleFromJSON value of
55 case parse moduleFromJSON value of
56 Success (_, r) -> r
56 Success (_, r) -> r
57− _ -> error "failed"
57+ _ -> error "Failed parsing corefn. Psgo currently supports purescript <= 0.13.8"
59splitArgs :: [String] -> ([String], Maybe String, [String])
59splitArgs :: [String] -> ([String], Maybe String, [String])
60splitArgs args =
60splitArgs args =