@@ -26,9 +26,10 @@ import qualified Data.Map as M
27compile :: [FilePath] -> Maybe FilePath -> Maybe FilePath -> IO ()
27compile :: [FilePath] -> Maybe FilePath -> Maybe FilePath -> IO ()
28compile inputFiles outputFile externsFile = do
28compile inputFiles outputFile externsFile = do
29− input <- fmap concat $ mapM U.readFile inputFiles
29+ asts <- fmap (fmap concat . sequence) $ flip mapM inputFiles $ \inputFile -> do
30+ text <- U.readFile inputFile
30− let ast = runIndentParser 0 parseDeclarations input
31+ return $ runIndentParser 0 parseDeclarations text
31− case ast of
32+ case asts of
32 Left err -> do
33 Left err -> do
33 U.print err
34 U.print err
34 exitFailure
35 exitFailure