Add fields and Generic instance to User

bradparker · bradparker · commit 07e9d5069e64 · 2019-10-02T20:27:40.000+10:00
diff --git a/how-does-servants-type-dsl-work.cabal b/how-does-servants-type-dsl-work.cabal
@@ -10,5 +10,6 @@ executable server
   main-is:             Main.hs
   build-depends:       base ^>=4.12.0.0
                      , servant-server
+                     , time
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Main.hs b/src/Main.hs
@@ -1,9 +1,12 @@
 {-# LANGUAGE DataKinds #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TypeOperators #-}
 {-# OPTIONS_GHC -Wall #-}
 
 module Main where
 
+import Data.Time (Day)
+import GHC.Generics (Generic)
 import Servant
   ( (:<|>)
   , (:>)
@@ -13,6 +16,12 @@ import Servant
   )
 
 data User = User
+  { name :: String
+  , age :: Int
+  , email :: String
+  , username :: String
+  , registrationDate :: Day
+  } deriving (Generic)
 
 type UsersIndex =
   Get '[JSON] [User]
