Add files

src/Dodge/BlBl.hs

@@ -0,0 +1,9 @@
+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