@@ -22,7 +22,7 @@
22module PSCi where
22module PSCi where
24import Data.Foldable (traverse_)
24import Data.Foldable (traverse_)
25−import Data.List (intercalate, nub, sort)
25+import Data.List (intercalate, nub, sort, isPrefixOf)
26import Data.Traversable (traverse)
26import Data.Traversable (traverse)
27import Data.Version (showVersion)
27import Data.Version (showVersion)
28import qualified Data.Map as M
28import qualified Data.Map as M
@@ -231,7 +231,7 @@ instance P.MonadMake Make where
231 writeTextFile path text = makeIO (const (P.CannotWriteFile path)) $ do
231 writeTextFile path text = makeIO (const (P.CannotWriteFile path)) $ do
232 mkdirp path
232 mkdirp path
233 writeFile path text
233 writeFile path text
234− progress s = unless (take 15 s == "Compiling $PSCI") $ liftIO . putStrLn $ s
234+ progress s = unless ("Compiling $PSCI" `isPrefixOf` s) $ liftIO . putStrLn $ s
236mkdirp :: FilePath -> IO ()
236mkdirp :: FilePath -> IO ()
237mkdirp = createDirectoryIfMissing True . takeDirectory
237mkdirp = createDirectoryIfMissing True . takeDirectory