Setup stylish-haskell

1 files changed, 8 insertions, 8 deletions

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