better show for let expressions; fix a bug in type class desugaring

1 files changed, 7 insertions, 0 deletions

diff --git a/test/runTests.hs b/test/runTests.hs
index f86c4813..cc21014f 100644
--- a/test/runTests.hs
+++ b/test/runTests.hs
@@ -120,6 +120,13 @@ erroneous = (>= TimedOut)
 isWip    = (".wip" `elem`) . takeExtensions'
 isReject = (".reject" `elem`) . takeExtensions'
 
+-- for the repl
+parse srcName includePaths = do
+    pplRes <- parseModule includePaths srcName
+    case pplRes of
+        Left err -> fail $ show err
+        Right ppl -> putStrLn ppl
+
 main :: IO ()
 main = do
   hSetBuffering stdout NoBuffering