58babfc · typeable/mandrill

.hub+1−1

compare with master

unifiedsplit

@@ -1 +1 @@

1−mandrill

1+mandrill-7.10.1

.travis.yml+2−1

@@ -9,6 +9,7 @@ env:

9 - GHCVER=7.6.3 CABALVER=1.16

10 - GHCVER=7.8.2 CABALVER=1.18

11 - GHCVER=7.8.3 CABALVER=1.18

12+ - GHCVER=7.10.1 CABALVER=1.22

12 - GHCVER=head CABALVER=1.20

13 - GHCVER=head CABALVER=1.20

13

14

14matrix:

15matrix:

@@ -46,4 +47,4 @@ script:

46after_script:

47after_script:

47 - cabal install hpc-coveralls

48 - cabal install hpc-coveralls

48 - export PATH=/opt/ghc/$GHCVER/bin:$HOME/.cabal/bin:$PATH

49 - export PATH=/opt/ghc/$GHCVER/bin:$HOME/.cabal/bin:$PATH

49− - hpc-coveralls --coverage-mode=StrictlyFullLines mandrill-tests

50+ - hpc-coveralls --coverage-mode=StrictlyFullLines mandrill-tests

mandrill.cabal+1−1

@@ -1,5 +1,5 @@

1name: mandrill

2−version: 0.2.1.0

2+version: 0.2.2.0

3synopsis: Library for interfacing with the Mandrill JSON API

4description: Pure Haskell client for the Mandrill JSON API

5license: MIT

src/Network/API/Mandrill/Types.hs+7−2

@@ -1,4 +1,5 @@

1{-# LANGUAGE TemplateHaskell #-}

2+{-# LANGUAGE CPP #-}

2{-# LANGUAGE RankNTypes #-}

3{-# LANGUAGE RankNTypes #-}

3{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE ScopedTypeVariables #-}

4{-# LANGUAGE OverloadedStrings #-}

5{-# LANGUAGE OverloadedStrings #-}

@@ -12,7 +13,11 @@ import Data.Char

12import Data.Maybe

13import Data.Maybe

13import Data.Time

14import Data.Time

14import Control.Applicative

15import Control.Applicative

16+#if MIN_VERSION_time(1,5,0)

17+import Data.Time.Format (defaultTimeLocale)

18+#else

15−import System.Locale (defaultTimeLocale)

19+import System.Locale (defaultTimeLocale)

20+#endif

16import qualified Data.ByteString as B

21import qualified Data.ByteString as B

17import qualified Data.ByteString.Base64 as Base64

22import qualified Data.ByteString.Base64 as Base64

18import qualified Data.Text as T

23import qualified Data.Text as T

@@ -329,6 +334,6 @@ instance ToJSON MandrillDate where

329

334

330instance FromJSON MandrillDate where

335instance FromJSON MandrillDate where

331 parseJSON = withText "MandrillDate" $ \t ->

336 parseJSON = withText "MandrillDate" $ \t ->

332− case parseTime defaultTimeLocale "%Y-%m-%d %I:%M:%S%Q" (T.unpack t) of

337+ case parseTimeM True defaultTimeLocale "%Y-%m-%d %I:%M:%S%Q" (T.unpack t) of

333 Just d -> pure $ MandrillDate d

338 Just d -> pure $ MandrillDate d

334 _ -> fail "could not parse Mandrill date"

339 _ -> fail "could not parse Mandrill date"