/usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/SizeBin_.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/Binary/SizeBin_.hs


module NHC.Binary
  ( sizeBin
  ) where

import NHC.GreenCard
import BinHandle ({-type-}BinHandle(..))


foreign import ccall hs_sizeBin :: ForeignObj -> IO Int

sizeBin :: BinHandle -> IO Int
sizeBin (BH bh) =
  do hs_sizeBin bh

(Return to Plan 9 Home Page)