From b63159fd00e023daeb5c40a524c55c6eae9c8f9e Mon Sep 17 00:00:00 2001
From: ivanbrennan <ivan.brennan@gmail.com>
Date: Mon, 28 Sep 2020 20:53:04 -0400
Subject: [PATCH] add complCaseSensitivity field to XPConfig

---
 XMonad/Prompt.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 7ad4f686..ffcd4c7d 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -185,6 +185,8 @@ data XPConfig =
         , autoComplete          :: Maybe Int    -- ^ Just x: if only one completion remains, auto-select it,
                                                 --   and delay by x microseconds
         , showCompletionOnTab   :: Bool         -- ^ Only show list of completions when Tab was pressed
+        , complCaseSensitivity  :: ComplCaseSensitivity
+                                                -- ^ Perform completion in a case-sensitive manner
         , searchPredicate       :: String -> String -> Bool
                                                 -- ^ Given the typed string and a possible
                                                 --   completion, is the completion valid?
@@ -323,6 +325,7 @@ instance Default XPConfig where
         , defaultText           = []
         , autoComplete          = Nothing
         , showCompletionOnTab   = False
+        , complCaseSensitivity  = ComplCaseSensitive True
         , searchPredicate       = isPrefixOf
         , alwaysHighlight       = False
         , defaultPrompter       = id