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

---
 common/src/Common/View/Format.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'common/src/Common/View/Format.hs')

diff --git a/common/src/Common/View/Format.hs b/common/src/Common/View/Format.hs
index 7165965..783ad67 100644
--- a/common/src/Common/View/Format.hs
+++ b/common/src/Common/View/Format.hs
@@ -7,15 +7,15 @@ module Common.View.Format
   , number
   ) where
 
-import Data.Text (Text)
-import qualified Data.Text as T
-import Data.List (intersperse)
-import Data.Maybe (fromMaybe)
-import Data.Time.Calendar (Day, toGregorian)
+import           Data.List          (intersperse)
+import           Data.Maybe         (fromMaybe)
+import           Data.Text          (Text)
+import qualified Data.Text          as T
+import           Data.Time.Calendar (Day, toGregorian)
 
-import qualified Common.Message as Message
+import qualified Common.Message     as Message
 import qualified Common.Message.Key as Key
-import Common.Model (Currency(..))
+import           Common.Model       (Currency (..))
 
 shortDay :: Day -> Text
 shortDay date =
@@ -45,7 +45,7 @@ longDay date =
         monthToKey 10 = Just Key.Month_October
         monthToKey 11 = Just Key.Month_November
         monthToKey 12 = Just Key.Month_December
-        monthToKey _ = Nothing
+        monthToKey _  = Nothing
 
 price :: Currency -> Int -> Text
 price (Currency currency) amount = T.concat [ number amount, " ", currency ]
-- 
cgit v1.2.3