apple-0.1.0.0: src/Asm/BB.hs

{-# LANGUAGE DeriveFunctor #-}

module Asm.BB ( BB (..) ) where

import           Data.Copointed

data BB arch reg freg a b = BB { unBB :: [arch reg freg a], caBB :: b } deriving (Functor)

instance Copointed (BB arch reg freg a) where copoint=caBB