Reify debug booleans

2022-06-17 21:34:00 +01:00
parent 261bb0bb6b
commit 5053590792
10 changed files with 73 additions and 49 deletions
@@ -23,4 +23,8 @@ strictify :: Maybe a -> Maybe' a
 strictify Nothing  = Nothing'
 strictify (Just x) = Just' x

+toggleJust :: Maybe a -> Maybe ()
+toggleJust Nothing = Just ()
+toggleJust _ = Nothing
+
 makeLenses ''Maybe'