5a810b9 · gogol · git.iko.soy

core/gogol-core.cabal+1

compare with develop

unifiedsplit

@@ -41,6 +41,7 @@ library

41 other-modules:

42 Network.Google.Data.JSON

43 , Network.Google.Data.Numeric

44+ , Network.Google.Data.Time

44

45

45 build-depends:

46 build-depends:

46 aeson >= 0.8

47 aeson >= 0.8

core/src/Network/Google/Data/Time.hsnew file+33

@@ -0,0 +1,33 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE DeriveGeneric #-}

3+{-# LANGUAGE GeneralizedNewtypeDeriving #-}

4+

5+-- |

6+-- Module : Network.Google.Data.Time

8+-- License : Mozilla Public License, v. 2.0.

9+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

10+-- Stability : provisional

11+-- Portability : non-portable (GHC extensions)

12+--

13+module Network.Google.Data.Time where

14+

15+import Data.Aeson

16+import Data.Data (Data, Typeable)

17+import Data.Text (Text)

18+import Data.Time

19+import GHC.Generics

20+import Servant.API (FromText, ToText)

21+

22+_Time = undefined

23+_Date = undefined

24+_DateTime = undefined

25+

26+newtype Time' = Time' Text -- TimeOfDay

27+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

28+

29+newtype Date' = Date' Text -- LocalTime

30+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

31+

32+newtype DateTime' = DateTime' Text -- UTCTime

33+ deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

core/src/Network/Google/Prelude.hs+1−13

@@ -43,6 +43,7 @@ import GHC.Generics as Export (Generic)

43import GHC.TypeLits

44import Network.Google.Data.JSON as Export

45import Network.Google.Data.Numeric as Export

46+import Network.Google.Data.Time as Export

46-- import Network.HTTP.Media

47-- import Network.HTTP.Media

47import Numeric.Natural as Export (Natural)

48import Numeric.Natural as Export (Natural)

48import Prelude as Export hiding (product)

49import Prelude as Export hiding (product)

@@ -63,19 +64,6 @@ _Default = iso f Just

63 f (Just x) = x

64 f (Just x) = x

64 f Nothing = mempty

65 f Nothing = mempty

65

66

66−_Time = undefined

67−_Date = undefined

68−_DateTime = undefined

69−

70−newtype Time' = Time' Text -- TimeOfDay

71− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

72−

73−newtype Date' = Date' Text -- LocalTime

74− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

75−

76−newtype DateTime' = DateTime' Text -- UTCTime

77− deriving (Eq, Ord, Show, Read, Generic, Data, Typeable, FromText, ToText, FromJSON, ToJSON)

78−

79data AltJSON = AltJSON

67data AltJSON = AltJSON

80 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)

68 deriving (Eq, Ord, Show, Read, Generic, Data, Typeable)

81

69