btrfs-0.1.1.0: make-bytestring.hs

#!/usr/bin/runhaskell

import System.Directory
import System.IO
import Control.Monad

main :: IO ()
main = do
    doesFileExist "btrfs.cabal" >>= \f ->
        unless f $ fail "could not find btrfs.cabal"

    -- create System/Linux/Btrfs/ByteString.hsc
    withFile "System/Linux/Btrfs/ByteString.hsc" WriteMode $ \oHdl -> do
        hPutStrLn oHdl "#define BTRFS_RAW_PATHS 1"
        withFile "System/Linux/Btrfs.hsc" ReadMode $ \iHdl -> do
            s <- hGetLine iHdl -- skip the first line
            unless (s == "#define BTRFS_RAW_PATHS 0") $
                fail "the first line does not have the expected contents"
            contents <- hGetContents iHdl
            hPutStr oHdl contents