53ec486 · typeable/mandrill

.travis.yml+5−5

compare with master

unifiedsplit

@@ -21,17 +21,15 @@ before_install:

21 - travis_retry sudo apt-get install cabal-install-$CABALVER ghc-$GHCVER

22 - export PATH=/opt/ghc/$GHCVER/bin:/opt/cabal/$CABALVER/bin:$PATH

23 - cabal --version

24− - cabal update

25− - cabal install hpc-coveralls

26

24

27install:

25install:

28 - cabal update

26 - cabal update

29 - cabal install --only-dependencies --enable-tests

27 - cabal install --only-dependencies --enable-tests

30

28

31script:

29script:

32− - cabal configure --enable-tests -v2

30+ - cabal configure --enable-tests -v2 --enable-library-coverage

33 - cabal build

31 - cabal build

34− - cabal test

32+ - cabal test --show-details=always

35 - cabal check

33 - cabal check

36 - cabal sdist

34 - cabal sdist

37

35

@@ -46,4 +44,6 @@ script:

46 fi

44 fi

47

45

48after_script:

46after_script:

49− - hpc-coveralls mandrill-tests

47+ - cabal install hpc-coveralls

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

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

README.md+1−1

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

1[![Build Status](https://travis-ci.org/adinapoli/mandrill.svg?branch=master)](https://travis-ci.org/adinapoli/mandrill)

2−[![Coverage Status](https://img.shields.io/coveralls/adinapoli/mandrill.svg)](https://coveralls.io/r/adinapoli/mandrill)A

2+[![Coverage Status](https://img.shields.io/coveralls/adinapoli/mandrill.svg)](https://coveralls.io/r/adinapoli/mandrill)

3

4# Haskell Client for the Mandrill JSON API

5

mandrill.cabal+1

@@ -8,6 +8,7 @@ author: Alfredo Di Napoli

8maintainer: alfredo.dinapoli@gmail.com

9category: Network

10build-type: Simple

11+tested-with: GHC == 7.4, GHC == 7.6, GHC == 7.8

11cabal-version: >=1.10

12cabal-version: >=1.10

12

13

13source-repository head

14source-repository head

src/Network/API/Mandrill/Trans.hs+8

@@ -5,11 +5,19 @@ import Control.Monad.Reader

5import Control.Applicative

6import Network.API.Mandrill.Types

7

8+

9+--------------------------------------------------------------------------------

8newtype MandrillT m a = MandrillT {

10newtype MandrillT m a = MandrillT {

9 runMandrillT :: ReaderT MandrillKey m a

11 runMandrillT :: ReaderT MandrillKey m a

10 } deriving (MonadTrans, MonadReader MandrillKey,

12 } deriving (MonadTrans, MonadReader MandrillKey,

11 Functor, Applicative, Monad, MonadIO)

13 Functor, Applicative, Monad, MonadIO)

12

14

15+

16+--------------------------------------------------------------------------------

17+type Mandrill = MandrillT IO

18+

19+

20+--------------------------------------------------------------------------------

13runMandrill :: MonadIO m

21runMandrill :: MonadIO m

14 => MandrillKey

22 => MandrillKey

15 -> MandrillT m a

23 -> MandrillT m a