Move where clause to let

so that it can capture the existing `accounts` binding.
MoritzR · Aug 23, 2023 · f5b85a1 · f5b85a1
1 parent b8b7d6b
commit f5b85a1
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Completion.hs b/src/Completion.hs
@@ -21,9 +21,8 @@ runCompletion config key
 runWithAccountCompletion :: AppConfig -> InputT IO a -> IO a
 runWithAccountCompletion config input = do
   accounts <- getAccounts config.journalFile
-  runInputT (makeSettings $ accountCompletion accounts) input
- where
-  accountCompletion accounts = completeWord Nothing [] (return . getCompletions accounts . pack)
+  let accountCompletion = completeWord Nothing [] (return . getCompletions accounts . pack)
+  runInputT (makeSettings accountCompletion) input
 
 runWithNoCompletion :: InputT IO a -> IO a
 runWithNoCompletion = runInputT $ makeSettings noCompletion