@@ -22,7 +22,7 @@
2222module PSCi where
2323
2424import Data.Foldable (traverse_)
25−import Data.List (intercalate, nub, sort)
25+import Data.List (intercalate, nub, sort, isPrefixOf)
2626import Data.Traversable (traverse)
2727import Data.Version (showVersion)
2828import qualified Data.Map as M
@@ -231,7 +231,7 @@ instance P.MonadMake Make where
231231 writeTextFile path text = makeIO (const (P.CannotWriteFile path)) $ do
232232 mkdirp path
233233 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
235235
236236mkdirp :: FilePath -> IO ()
237237mkdirp = createDirectoryIfMissing True . takeDirectory