module Dodge.BlBl (doBlBl) where

import Dodge.Data.BlBl

doBlBl :: BlBl -> Bool -> Bool
doBlBl bb = case bb of
    BlNegate -> not
    BlConst bl -> const bl
    BlId -> id