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/Message/Translation.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'common/src/Common/Message/Translation.hs')

diff --git a/common/src/Common/Message/Translation.hs b/common/src/Common/Message/Translation.hs
index 900a9e9..16a56dd 100644
--- a/common/src/Common/Message/Translation.hs
+++ b/common/src/Common/Message/Translation.hs
@@ -4,11 +4,11 @@ module Common.Message.Translation
   ( get
   ) where
 
-import Data.Text (Text)
-import qualified Data.Text as T
+import           Data.Text           (Text)
+import qualified Data.Text           as T
 
-import Common.Message.Key
-import Common.Message.Lang (Lang(..))
+import           Common.Message.Key
+import           Common.Message.Lang (Lang (..))
 
 get :: Lang -> Key -> Text
 get = m
@@ -162,7 +162,7 @@ m l Form_AlreadyExists =
 m l Form_CostMustNotBeNull =
   case l of
     English -> "Cost must not be zero"
-    French -> "Le coût ne doît pas être nul"
+    French  -> "Le coût ne doît pas être nul"
 
 m l Form_Empty =
   case l of
@@ -462,7 +462,7 @@ m l Payment_PunctualMale =
 m l Payment_Title =
   case l of
     English -> "Payments"
-    French -> "Paiements"
+    French  -> "Paiements"
 
 m l Payment_User =
   case l of
@@ -472,7 +472,7 @@ m l Payment_User =
 m l (Payment_Worth subject amount) =
   case l of
     English -> T.concat [ subject, " worth ", amount ]
-    French -> T.concat [ subject, " comptabilisant ", amount ]
+    French  -> T.concat [ subject, " comptabilisant ", amount ]
 
 m l Search_Monthly =
   case l of
@@ -517,7 +517,7 @@ m l SignIn_EmailInvalid =
 m l SignIn_EmailPlaceholder =
   case l of
     English -> "Email"
-    French -> "Courriel"
+    French  -> "Courriel"
 
 m l SignIn_EmailSendFail =
   case l of
-- 
cgit v1.2.3