import Prelude hiding (writeFile, take)
import qualified Crypto.Hash.SHA1 as SHA1 (hash)
+import Control.Monad (unless)
import Data.ByteString (ByteString, writeFile, hPut, hGet, take)
import qualified Data.ByteString.Char8 as BC
import System.IO (withFile, hSeek, IOMode(..), SeekMode(..))
createDummyFile :: FilePath -> Int -> IO ()
createDummyFile path size = do
dfe <- doesFileExist path
- if dfe
- then return ()
- else
+ unless dfe $
writeFile path (BC.replicate size '\0')
-- write into a file at a specific offet