adblock2privoxy-1.1.0: src/Task.hs

module Task (
writeTask,
readTask
) where
import System.IO
import InputParser
import Statistics
import Control.Applicative ((<$>))

writeTask :: String -> [String] -> [Line] -> IO ()
writeTask filename info lns = 
    let 
        statistics = collectStat lns
        errorLine (Line position (Error text)) 
            = [concat ["ERROR: ", recordSourceText position, " - ", text]]
        errorLine _ = []
    in do  
        outFile <- openFile filename WriteMode
        _ <- mapM (hPutStrLn outFile) info
        _ <- sequence $ hPutStrLn outFile <$> statistics 
        _ <- sequence $ hPutStrLn outFile <$> (lns >>= errorLine)
        hClose outFile

readTask :: String -> IO [String]       
readTask path = do 
        result <- lines <$> readFile path
        return $ length result `seq` result --read whole file to allow its overwriting