@@ -157,11 +157,9 @@ buildMakeActions outputDir filePathMap usePrefix =
157157
158158 writeTextFile :: FilePath -> String -> Make ()
159159 writeTextFile path text = makeIO (const (ErrorMessage [] $ CannotWriteFile path)) $ do
160− mkdirp path
161− writeFile path text
162− where
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
162+ return ()
165163
166164 -- | Render a progress message
167165 renderProgressMessage :: P.ProgressMessage -> String