@@ -82,7 +82,7 @@ fillApp modu func mqueue dirs =
82 res <- theapp modu func
82 res <- theapp modu func
83 case res of
83 case res of
84 Left err -> do
84 Left err -> do
85− putStrLn $ "Compile failed: " ++ show err
85+ putStrLn $ "Compile failed: " ++ showInterpError err
86 loadingApp' (Just $ toException err) mqueue
86 loadingApp' (Just $ toException err) mqueue
87 return (Just $ toException err, [])
87 return (Just $ toException err, [])
88 Right (app, files') -> E.handle onInitErr $ do
88 Right (app, files') -> E.handle onInitErr $ do
@@ -98,6 +98,11 @@ fillApp modu func mqueue dirs =
98 loadingApp' (Just e) mqueue
98 loadingApp' (Just e) mqueue
99 return (Just e, [])
99 return (Just e, [])
101+showInterpError :: InterpreterError -> String
102+showInterpError (WontCompile errs) =
103+ concat $ map (\(GhcError msg) -> '\n':'\n':msg) errs
104+showInterpError err = show err
101fileList :: FilePath -> IO [FilePath]
106fileList :: FilePath -> IO [FilePath]
102fileList top = do
107fileList top = do
103 ex <- doesDirectoryExist top
108 ex <- doesDirectoryExist top