Conduit бинарный файл

import Control.Monad (unless)
import qualified Data.ByteString as S
import System.IO (withBinaryFile, IOMode (ReadMode, WriteMode))
 
main =
    withBinaryFile "file.txt" ReadMode $ \inH ->
    withBinaryFile "output.txt" WriteMode $ \outH ->
        let loop = do
                bs <- S.hGetSome inH 4096
                unless (S.null bs) $ do
                    S.hPut outH bs
                    loop
         in loop

module Main where 
 
import Control.Monad
import Control.Monad.Trans.Resource
import Data.Conduit
import qualified Data.Conduit.Binary as CB  -- cabal install conduit-extra
import qualified Data.ByteString.Lazy as L
 
main:: IO ()
main = runResourceT $ CB.sourceFile "input.bin" $= conduit $$ CB.sinkFile "output.bin"
    where 
          conduit = do
            w <- CB.take 2
            unless (L.null w) $ CB.drop 6 >> yield (L.toStrict w) >> conduit

main = runResourceT $ CB.sourceFileRange "input.bin" Nothing (Just 2) $$ CB.sinkFile "output.bin"