@@ -82,7 +82,7 @@ fillApp modu func mqueue dirs =
8282 res <- theapp modu func
8383 case res of
8484 Left err -> do
85− putStrLn $ "Compile failed: " ++ show err
85+ putStrLn $ "Compile failed: " ++ showInterpError err
8686 loadingApp' (Just $ toException err) mqueue
8787 return (Just $ toException err, [])
8888 Right (app, files') -> E.handle onInitErr $ do
@@ -98,6 +98,11 @@ fillApp modu func mqueue dirs =
9898 loadingApp' (Just e) mqueue
9999 return (Just e, [])
100100
101+showInterpError :: InterpreterError -> String
102+showInterpError (WontCompile errs) =
103+ concat $ map (\(GhcError msg) -> '\n':'\n':msg) errs
104+showInterpError err = show err
105+
101106fileList :: FilePath -> IO [FilePath]
102107fileList top = do
103108 ex <- doesDirectoryExist top