module NHC.Binary
  ( closeBin
  ) where

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

%-#include "cLowBinary.h"

%fun closeBin :: BinHandle -> IO ()
%call (binHandle bh)
%code preFinaliseBH(bh);
%result ()