Make concrete world read/showable

2022-07-25 12:23:21 +01:00
parent f8f9fbe800
commit f5604ef429
6 changed files with 15 additions and 13 deletions
@@ -4,7 +4,7 @@ module MaybeHelp where
 import Control.Lens

 data Maybe' a = Just' {__Just' :: a} | Nothing'
-    deriving (Eq,Ord,Show)
+    deriving (Eq,Ord,Show,Read)

 fromJust' :: Maybe' a -> a
 fromJust' mx = case mx of