be pedantic

2019-11-12 17:01:08 -05:00
parent 9288d885cd
commit c99a39b2b9
9 changed files with 79 additions and 77 deletions
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -162,9 +162,9 @@ selectPrompt params = Prompt
        n       = pred $ fromInteger rawK
        results = spSearch params sStr db
      when (n < maxFunKeys) $
-        whenJust (nth n results) $ \(n, _) -> do
+        whenJust (nth n results) $ \(sel, _) -> do
          modify $ inputBuffer .~ ""
-          spCallback params $ Just n
+          spCallback params $ Just sel
    _ -> return ()
  }