Work on debugging

2023-04-27 11:35:48 +01:00
parent 35990c53bf
commit 9972e0fdea
17 changed files with 39 additions and 28 deletions
@@ -19,6 +19,8 @@ data Maybe' a = Just' {__Just' :: a} | Nothing'
 --
 --instance FromJSON a => FromJSON (Maybe' a)

+--maybe' :: b -> (a -> b) -> Maybe' a -> b
+
 fromJust' :: Maybe' a -> a
 fromJust' mx = case mx of
    Just' x -> x