-- GENERATED by C->Haskell Compiler, version 0.28.6 Switcheroo, 25 November 2017 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "src/Codec/Compression/BZip/Common.chs" #-}
module Codec.Compression.BZip.Common ( bzStreamInit ) where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import qualified Foreign.Storable as C2HSImp



import Codec.Compression.BZip.Foreign.Common (BzStream)
import Control.Applicative
import Foreign.Ptr (nullFunPtr, nullPtr, Ptr)
import Foreign.Marshal (mallocBytes)



bzStreamInit :: IO (Ptr BzStream)
bzStreamInit = do
    p <- mallocBytes 80
{-# LINE 12 "src/Codec/Compression/BZip/Common.chs" #-}

    (\ptr val -> do {C2HSImp.pokeByteOff ptr 56 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> (C2HSImp.CInt -> (C2HSImp.CInt -> (IO (C2HSImp.Ptr ())))))))}) p nullFunPtr
    (\ptr val -> do {C2HSImp.pokeByteOff ptr 64 (val :: (C2HSImp.FunPtr ((C2HSImp.Ptr ()) -> ((C2HSImp.Ptr ()) -> (IO ())))))}) p nullFunPtr
    (\ptr val -> do {C2HSImp.pokeByteOff ptr 72 (val :: (C2HSImp.Ptr ()))}) p nullPtr
    pure p