wrath/shaniqua-plugins
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

strict file IO for make

Browse Source
This commit is contained in:
boy 2006-03-31 13:32:46 +00:00
parent 33c374fb75
commit 493be17566
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/System/Plugins/Make.hs
View File

@ -66,9 +66,9 @@ import System.Plugins.Env ( lookupMerged, addMerge
, getModuleDeps)
#if DEBUG
import System.IO (hFlush, stdout, openFile, IOMode(..),hClose, hPutStr)
import System.IO (hFlush, stdout, openFile, IOMode(..),hClose, hPutStr, hGetContents)
#else
import System.IO (openFile, IOMode(..),hClose,hPutStr)
import System.IO (openFile, IOMode(..),hClose,hPutStr, hGetContents)
#endif
import System.Directory ( doesFileExist, removeFile
@ -391,8 +391,8 @@ rawMerge src stb out always_merge = do
;if not do_merge && not always_merge
then return $ MergeSuccess NotReq [] out
else do
src_str <- readFile src
stb_str <- readFile stb
src_str <- readFile' src
stb_str <- readFile' stb
let (a,a') = parsePragmas src_str
(b,b') = parsePragmas stb_str
@ -441,3 +441,10 @@ rm_f f = handleJust doesntExist (\_->return ()) (removeFile f)
| otherwise = Nothing
doesntExist _ = Nothing
readFile' f = do
h <- openFile f ReadMode
s <- hGetContents h
length s `seq` return ()
hClose h
return s