gistfile1.hs

source :: MonadIO m => Int -> Source m BS.ByteString
source n = replicateM_ n $ do
  n <- liftIO $ liftM (succ.(`mod` 15)) randomIO
  s <- liftIO $ replicateM n (randomIO :: IO Word8)
  yield (BS.pack s)


putter :: Putter BS.ByteString
putter s = do
  putWord32le (fromIntegral (BS.length s)) 
  putByteString s

runMain :: FilePath -> Int -> IO ()
runMain fn n = 
  runResourceT $    source n 
                 $= conduitPut putter
                 $$ sinkFile fn