@@ -157,11 +157,9 @@ buildMakeActions outputDir filePathMap usePrefix =
158 writeTextFile :: FilePath -> String -> Make ()
158 writeTextFile :: FilePath -> String -> Make ()
159 writeTextFile path text = makeIO (const (ErrorMessage [] $ CannotWriteFile path)) $ do
159 writeTextFile path text = makeIO (const (ErrorMessage [] $ CannotWriteFile path)) $ do
163− mkdirp :: FilePath -> IO ()
164− mkdirp = createDirectoryIfMissing True . takeDirectory
160+ createDirectoryIfMissing True (takeDirectory path)
161+ _ <- tryIOError $ writeFile path text -- TODO: intended to ignore "file busy", fix properly asap
166 -- | Render a progress message
164 -- | Render a progress message
167 renderProgressMessage :: P.ProgressMessage -> String
165 renderProgressMessage :: P.ProgressMessage -> String