From 5a63f7be9375e3ab888e4232dd7ef72c2f1ffae1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Nov 2017 23:56:40 +0100
Subject: Setup stylish-haskell

---
 server/src/View/Mail/WeeklyReport.hs | 41 ++++++++++++++++++------------------
 1 file changed, 21 insertions(+), 20 deletions(-)

(limited to 'server/src/View/Mail/WeeklyReport.hs')

diff --git a/server/src/View/Mail/WeeklyReport.hs b/server/src/View/Mail/WeeklyReport.hs
index b5f2b67..c0e89d5 100644
--- a/server/src/View/Mail/WeeklyReport.hs
+++ b/server/src/View/Mail/WeeklyReport.hs
@@ -4,28 +4,29 @@ module View.Mail.WeeklyReport
   ( mail
   ) where
 
-import Data.List (sortOn)
-import Data.Map (Map)
-import Data.Maybe (catMaybes, fromMaybe)
-import Data.Monoid ((<>))
-import Data.Text (Text)
-import Data.Time.Clock (UTCTime)
-import qualified Data.Map as M
-import qualified Data.Text as T
+import           Data.List          (sortOn)
+import           Data.Map           (Map)
+import qualified Data.Map           as M
+import           Data.Maybe         (catMaybes, fromMaybe)
+import           Data.Monoid        ((<>))
+import           Data.Text          (Text)
+import qualified Data.Text          as T
+import           Data.Time.Clock    (UTCTime)
 
-import qualified Common.Message as Message
+import qualified Common.Message     as Message
 import qualified Common.Message.Key as Key
-import Common.Model (Payment(..), User(..), UserId, Income(..))
-import qualified Common.Model as CM
+import           Common.Model       (Income (..), Payment (..), User (..),
+                                     UserId)
+import qualified Common.Model       as CM
 import qualified Common.View.Format as Format
 
-import Model.Mail (Mail(Mail))
-import Model.Payment ()
-import qualified Model.Income ()
-import qualified Model.Mail as M
-import Resource (Status(..), groupByStatus, statuses)
-import Conf (Conf)
-import qualified Conf as Conf
+import           Conf               (Conf)
+import qualified Conf               as Conf
+import qualified Model.Income       ()
+import           Model.Mail         (Mail (Mail))
+import qualified Model.Mail         as M
+import           Model.Payment      ()
+import           Resource           (Status (..), groupByStatus, statuses)
 
 mail :: Conf -> [User] -> [Payment] -> [Income] -> UTCTime -> UTCTime -> Mail
 mail conf users payments incomes start end =
@@ -65,7 +66,7 @@ payedFor :: Status -> Conf -> [User] -> Payment -> Text
 payedFor status conf users payment =
   case status of
     Deleted -> Message.get (Key.WeeklyReport_PayedForNot name amount for at)
-    _ -> Message.get (Key.WeeklyReport_PayedFor name amount for at)
+    _       -> Message.get (Key.WeeklyReport_PayedFor name amount for at)
   where name = formatUserName (_payment_user payment) users
         amount = Format.price (Conf.currency conf) . _payment_cost $ payment
         for = _payment_name payment
@@ -85,7 +86,7 @@ isPayedFrom :: Status -> Conf -> [User] -> Income -> Text
 isPayedFrom status conf users income =
   case status of
     Deleted -> Message.get (Key.WeeklyReport_PayedFromNot name amount for)
-    _ -> Message.get (Key.WeeklyReport_PayedFrom name amount for)
+    _       -> Message.get (Key.WeeklyReport_PayedFrom name amount for)
   where name = formatUserName (_income_userId income) users
         amount = Format.price (Conf.currency conf) . _income_amount $ income
         for = Format.longDay $ _income_date income
-- 
cgit v1.2.3