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

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


module NHC.Binary
  ( putAt
  ) where

import CBinary
import SeekBin
import BinHandle
import Bin

putAt :: Binary a => BinHandle -> Bin a -> a -> IO ()
putAt f p v = seekBin f p >> put f v >> return ()

(Return to Plan 9 Home Page)