fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2021-03-08 09:24:59 +01:00
parent ea33d844cc
commit 38f16ebac3
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Foundation/I18n/TH.hs
View File

@ -113,28 +113,28 @@ mkMessage :: TH.Name -- ^ Foundation type
-> FilePath -- ^ Base directory of translation files -> FilePath -- ^ Base directory of translation files
-> Lang -- ^ Default translation language -> Lang -- ^ Default translation language
-> TH.DecsQ -> TH.DecsQ
mkMessage dt folder lang = mkMessageCommon True "Msg" dt (TH.mkName $ TH.nameBase dt <> "Message") folder lang mkMessage dt = mkMessageCommon True "Msg" dt . TH.mkName $ TH.nameBase dt <> "Message"
mkMessageFor :: TH.Name -- ^ Foundation type mkMessageFor :: TH.Name -- ^ Foundation type
-> TH.Name -- ^ Existing type to add translations for -> TH.Name -- ^ Existing type to add translations for
-> FilePath -- ^ Base directory of translation files -> FilePath -- ^ Base directory of translation files
-> Lang -- ^ Default translation language -> Lang -- ^ Default translation language
-> TH.DecsQ -> TH.DecsQ
mkMessageFor master dt folder lang = mkMessageCommon False "" master dt folder lang mkMessageFor = mkMessageCommon False ""
mkMessageVariant :: TH.Name -- ^ Foundation type mkMessageVariant :: TH.Name -- ^ Foundation type
-> TH.Name -- ^ Existing type to add translations for -> TH.Name -- ^ Existing type to add translations for
-> FilePath -- ^ Base directory of translation files -> FilePath -- ^ Base directory of translation files
-> Lang -- ^ Default translation language -> Lang -- ^ Default translation language
-> TH.DecsQ -> TH.DecsQ
mkMessageVariant master dt folder lang = mkMessageCommon False "Msg" master dt folder lang mkMessageVariant = mkMessageCommon False "Msg"
mkMessageAddition :: TH.Name -- ^ Foundation type mkMessageAddition :: TH.Name -- ^ Foundation type
-> String -- ^ Qualifier to insert into name of message type -> String -- ^ Qualifier to insert into name of message type
-> FilePath -- ^ Base directory of translation files -> FilePath -- ^ Base directory of translation files
-> Lang -- ^ Default translation language -> Lang -- ^ Default translation language
-> TH.DecsQ -> TH.DecsQ
mkMessageAddition master dt folder lang = mkMessageCommon True "Msg" master (TH.mkName $ TH.nameBase master <> dt <> "Message") folder lang mkMessageAddition master qual = mkMessageCommon True "Msg" master . TH.mkName $ TH.nameBase master <> qual <> "Message"
mkMessageCommon :: Bool -- ^ Generate new datatype mkMessageCommon :: Bool -- ^ Generate new datatype
-> String -- ^ String to prepend to constructor names -> String -- ^ String to prepend to constructor names