From aa35d6a2f239bf8660d49d40d6065f259e33ac7a Mon Sep 17 00:00:00 2001
From: slotThe <soliditsallgood@mailbox.org>
Date: Wed, 14 Apr 2021 20:31:05 +0200
Subject: [PATCH] X.Prompt: Document getCompletions

---
 XMonad/Prompt.hs | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index c210b251..4240124f 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -1499,20 +1499,20 @@ printPrompt drw = do
   -- flip back to the original colors and print the rest of the string
   draw (fgNormal color) (bgNormal color) (x + fi (pcFont + cFont)) y postCursor
 
--- get the current completion function depending on the active mode
-getCompletionFunction :: XPState -> ComplFunction
-getCompletionFunction st = case operationMode st of
-  XPSingleMode compl _ -> compl
-  XPMultipleModes modes -> completionFunction $ W.focus modes
-
--- Completions
+-- | Get all available completions for the current input.
 getCompletions :: XP [String]
 getCompletions = do
-  s <- get
-  let q     = commandToComplete (currentXPMode s) (command s)
-      compl = getCompletionFunction s
-      srt   = sorter (config s)
-  io $ (srt q <$> compl q) `E.catch` \(SomeException _) -> return []
+  st@XPS{ config } <- get
+  let cmd   = commandToComplete (currentXPMode st) (command st)
+      compl = getCompletionFunction st
+      srt   = sorter config
+  io $ (srt cmd <$> compl cmd) `E.catch` \(SomeException _) -> return []
+ where
+  -- | Get the current completion function depending on the active mode.
+  getCompletionFunction :: XPState -> ComplFunction
+  getCompletionFunction st = case operationMode st of
+    XPSingleMode compl _ -> compl
+    XPMultipleModes modes -> completionFunction $ W.focus modes
 
 destroyComplWin :: XP ()
 destroyComplWin = do