improve example

eskimor · Oct 22, 2023 · bce383f · bce383f
1 parent 0b5e11f
commit bce383f
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 4 deletions.
diff --git a/example/src/MyLib.hs b/example/src/MyLib.hs
@@ -38,7 +38,7 @@ foo = do
   return $ Foo
     (pack "Hello")
     123
-    [10..20]
+    [10..13]
     (Map.fromList [(pack "foo", 2), (pack "bar", 3), (pack "baz", 3)])
     (Baz $ pack "hello")
     testSum
@@ -49,7 +49,10 @@ fooServer = getFoo :<|> postFoo
   where
     getFoo = do
       fooValue <- liftIO foo
-      liftIO $ putStrLn "Serving:"
+      liftIO $ putStrLn "-----------------"
+      liftIO $ putStrLn "Foo:"
+      liftIO $ putStrLn $ show fooValue
+      liftIO $ putStrLn "Serving JSON:"
       liftIO $ Char8.putStrLn $ AP.encodePretty fooValue
       return fooValue
 

diff --git a/example/src/Types.hs b/example/src/Types.hs
@@ -25,7 +25,7 @@ import           Test.QuickCheck (Arbitrary (..), chooseEnum, oneof, resize,
 data Baz = Baz
   { _bazMessage :: Text
   }
-  deriving (FromJSON, Generic, ToJSON)
+  deriving (FromJSON, Generic, ToJSON, Show)
 
 makeLenses ''Baz
 
@@ -66,7 +66,7 @@ data Foo = Foo
   , _fooTestSum  :: TestSum
   , _fooTestData :: TestData
   }
-  deriving (FromJSON, Generic, ToJSON)
+  deriving (FromJSON, Generic, ToJSON, Show)
 
 makeLenses ''Foo