Rename variable

Seems fine for me to leave out the "maybe" part, this is already included in the "maybeInsert"
MoritzR · Aug 30, 2023 · ed01059 · ed01059
1 parent a1a9941
commit ed01059
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Prompt.hs b/src/Prompt.hs
@@ -104,11 +104,11 @@ renderTemplate templateMap template =
 insertAccountsWithUnderscore :: TemplateMap -> TemplateMap
 insertAccountsWithUnderscore templateMap =
   templateMap
-    & maybeInsert "creditAccount" maybeCreditAccount
-    & maybeInsert "debitAccount" maybeDebitAccount
+    & maybeInsert "creditAccount" creditAccount
+    & maybeInsert "debitAccount" debitAccount
  where
-  maybeCreditAccount = templateMap !? "credit_account"
-  maybeDebitAccount = templateMap !? "debit_account"
+  creditAccount = templateMap !? "credit_account"
+  debitAccount = templateMap !? "debit_account"
   maybeInsert key maybeValue theMap = maybe theMap (\value -> insert key value theMap) maybeValue
 
 getPromptResultForMatchingEntry :: Fill -> TemplateMap -> App (PromptResult TemplateMap)