From ef3cf9f757aa19fa7ab9d85de389fcd186e4d6e2 Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Wed, 23 Sep 2015 12:11:14 +0200 Subject: [PATCH] Another Day instance removed --- servant-examples/tutorial/T1.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/servant-examples/tutorial/T1.hs b/servant-examples/tutorial/T1.hs index 9fb93c8c..d7cd396f 100644 --- a/servant-examples/tutorial/T1.hs +++ b/servant-examples/tutorial/T1.hs @@ -17,17 +17,12 @@ data User = User , registration_date :: Day } deriving (Eq, Show, Generic) --- orphan ToJSON instance for Day. necessary to derive one for User -instance ToJSON Day where - -- display a day in YYYY-mm-dd format - toJSON d = toJSON (showGregorian d) - instance ToJSON User type UserAPI = "users" :> Get '[JSON] [User] users :: [User] -users = +users = [ User "Isaac Newton" 372 "isaac@newton.co.uk" (fromGregorian 1683 3 1) , User "Albert Einstein" 136 "ae@mc2.org" (fromGregorian 1905 12 1) ]