WriteManyInts.hs

module WriteManyInts where

import System.IO
import Control.Exception(bracket)
import qualified Data.Binary as Binary
import qualified Data.ByteString.Lazy as ByteString

writeManyInts name n
	| n <= 0 = error "n <= 0"
	| otherwise = bracket
			(openBinaryFile name WriteMode)
			(hClose)
			(\h -> mapM_ (ByteString.hPut h) $ map Binary.encode ([1..n]::[Int])) 
			-- [1..n] is of type Int to force fixed width encodings. Integer type is variable length.