@@ -10,6 +10,7 @@ need to have some language extensions and imports:
10module ApiType where
10module ApiType where
12import Data.Text
12import Data.Text
13+import Data.Time (UTCTime)
13import Servant.API
14import Servant.API
@@ -34,7 +35,9 @@ data SortBy = Age | Name
35data User = User {
36data User = User {
36 name :: String,
37 name :: String,
37− age :: Int
38+ age :: Int,
40+ registration_date :: UTCTime