eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

aeson-0.10.0.0 fixes

Browse source
This commit is contained in:
Simon Hengel 2015-11-05 09:13:24 +08:00
parent 0d8439c5cd
commit cd395a27e8
2 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servant-examples/tutorial/T1.hs
View file

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeFamilies #-}
@ -17,10 +18,12 @@ data User = User
, registration_date :: Day , registration_date :: Day
} deriving (Eq, Show, Generic) } deriving (Eq, Show, Generic)
#if !MIN_VERSION_aeson(0,10,0)
-- orphan ToJSON instance for Day. necessary to derive one for User -- orphan ToJSON instance for Day. necessary to derive one for User
instance ToJSON Day where instance ToJSON Day where
-- display a day in YYYY-mm-dd format -- display a day in YYYY-mm-dd format
toJSON d = toJSON (showGregorian d) toJSON d = toJSON (showGregorian d)
#endif
instance ToJSON User instance ToJSON User

3
servant-examples/tutorial/T2.hs
View file

@ -1,3 +1,4 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE DataKinds #-} {-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-} {-# LANGUAGE TypeFamilies #-}
@ -17,10 +18,12 @@ data User = User
, registration_date :: Day , registration_date :: Day
} deriving (Eq, Show, Generic) } deriving (Eq, Show, Generic)
#if !MIN_VERSION_aeson(0,10,0)
-- orphan ToJSON instance for Day. necessary to derive one for User -- orphan ToJSON instance for Day. necessary to derive one for User
instance ToJSON Day where instance ToJSON Day where
-- display a day in YYYY-mm-dd format -- display a day in YYYY-mm-dd format
toJSON d = toJSON (showGregorian d) toJSON d = toJSON (showGregorian d)
#endif
instance ToJSON User instance ToJSON User