From afc0f31f913456418c8b89e2315e12f961ea3b85 Mon Sep 17 00:00:00 2001 From: "Julian K. Arni" Date: Wed, 23 Sep 2015 11:58:02 +0200 Subject: [PATCH] Use aeson's Day instance --- servant-examples/servant-examples.cabal | 2 +- servant-examples/tutorial/T2.hs | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/servant-examples/servant-examples.cabal b/servant-examples/servant-examples.cabal index 9233aed2..83dbde70 100644 --- a/servant-examples/servant-examples.cabal +++ b/servant-examples/servant-examples.cabal @@ -21,7 +21,7 @@ executable tutorial main-is: tutorial.hs other-modules: T1, T2, T3, T4, T5, T6, T7, T8, T9, T10 build-depends: - aeson >= 0.8 + aeson >= 0.10 , base >= 4.7 && < 5 , bytestring , directory diff --git a/servant-examples/tutorial/T2.hs b/servant-examples/tutorial/T2.hs index 69ded18c..c68772c8 100644 --- a/servant-examples/tutorial/T2.hs +++ b/servant-examples/tutorial/T2.hs @@ -17,11 +17,6 @@ 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]