10 lines
174 B
Haskell
10 lines
174 B
Haskell
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
|