diff options
| author | Joris | 2017-11-13 23:56:40 +0100 |
|---|---|---|
| committer | Joris | 2017-11-14 00:03:10 +0100 |
| commit | 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 (patch) | |
| tree | 4884de1d03bc47ba8f06b2cf68365d9eed9e0d39 /server/src/SendMail.hs | |
| parent | 213cf7ede058b781fc957de2cd9f6a5988c08004 (diff) | |
| download | budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.gz budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.tar.bz2 budget-5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1.zip | |
Setup stylish-haskell
Diffstat (limited to 'server/src/SendMail.hs')
| -rw-r--r-- | server/src/SendMail.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/server/src/SendMail.hs b/server/src/SendMail.hs index f7ba3fd..959f21d 100644 --- a/server/src/SendMail.hs +++ b/server/src/SendMail.hs @@ -4,17 +4,17 @@ module SendMail ( sendMail ) where -import Control.Arrow (left) -import Control.Exception (SomeException, try) -import Data.Either (isLeft) +import Control.Arrow (left) +import Control.Exception (SomeException, try) +import Data.Either (isLeft) -import Data.Text (Text) -import Data.Text.Lazy.Builder (toLazyText, fromText) -import qualified Data.Text as T -import qualified Data.Text.Lazy as LT -import qualified MimeMail as M +import Data.Text (Text) +import qualified Data.Text as T +import qualified Data.Text.Lazy as LT +import Data.Text.Lazy.Builder (fromText, toLazyText) +import qualified MimeMail as M -import Model.Mail (Mail(Mail)) +import Model.Mail (Mail (Mail)) sendMail :: Mail -> IO (Either Text ()) sendMail mail = do |