@@ -104,7 +104,7 @@ readInput inputFiles = forM inputFiles $ \inputFile -> do
104104type TestM = WriterT [(FilePath, String)] IO
105105
106106runTest :: P.Make a -> IO (Either P.MultipleErrors a)
107−runTest = fmap (fmap fst) . P.runMake P.defaultOptions
107+runTest = fmap fst . P.runMake P.defaultOptions
108108
109109compile :: [FilePath] -> M.Map P.ModuleName FilePath -> IO (Either P.MultipleErrors P.Environment)
110110compile inputFiles foreigns = runTest $ do