From 6bd1426c9a40b186906a4b490032c9bbbeb9975e Mon Sep 17 00:00:00 2001
From: 0rphee <0rph3e@proton.me>
Date: Mon, 18 Sep 2023 21:58:23 -0600
Subject: [PATCH] fix removed reexported imports from mtl and change stackage
 lts to 21.12

now using mtl-2.2.2
---
 stack.yaml                 |  5 ++++-
 stack.yaml.lock            | 19 +++++++++++++++++++
 yi-core/src/Yi/Dired.hs    |  8 ++++----
 yi-core/src/Yi/Editor.hs   |  5 ++---
 yi-core/src/Yi/Interact.hs |  3 ++-
 yi-core/src/Yi/Monad.hs    |  3 ++-
 6 files changed, 33 insertions(+), 10 deletions(-)
 create mode 100644 stack.yaml.lock

diff --git a/stack.yaml b/stack.yaml
index be5571f47..ebc2499f5 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -18,11 +18,14 @@ packages:
 - yi-language
 - yi-snippet
 - yi
-resolver: lts-11.12
+resolver: lts-21.12
 build:
  library-profiling: false
  executable-profiling: false
 
+extra-deps:
+  - Hclip-3.0.0.4
+
 # needed for macOS
 # flags:
 #   gtk:
diff --git a/stack.yaml.lock b/stack.yaml.lock
new file mode 100644
index 000000000..6e9f804dc
--- /dev/null
+++ b/stack.yaml.lock
@@ -0,0 +1,19 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages:
+- completed:
+    hackage: Hclip-3.0.0.4@sha256:df341c936594465df25c3b9f93f6ebe3110a36d64a51dbbd1dbd557394bbdba4,1648
+    pantry-tree:
+      sha256: bc09b0acdf0ffce64e16a53ffc18d76dc05d4282433cae723402d1b8ecc01301
+      size: 205
+  original:
+    hackage: Hclip-3.0.0.4
+snapshots:
+- completed:
+    sha256: 9313df78f49519315342f4c51ffc5da12659d3735f8ac3c54a1fb98ff874474e
+    size: 640036
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/12.yaml
+  original: lts-21.12
diff --git a/yi-core/src/Yi/Dired.hs b/yi-core/src/Yi/Dired.hs
index 331da36ca..eba78f6d8 100644
--- a/yi-core/src/Yi/Dired.hs
+++ b/yi-core/src/Yi/Dired.hs
@@ -49,7 +49,8 @@ import           Control.Applicative      ((<|>))
 import           Control.Category         ((>>>))
 import           Control.Exc              (orException, printingException)
 import           Lens.Micro.Platform      (makeLenses, use, (%~), (&), (.=), (.~), (^.))
-import           Control.Monad.Reader     (asks, foldM, unless, void, when)
+import           Control.Monad            (foldM, unless, void, when)
+import           Control.Monad.Reader     (asks)
 import qualified Data.Attoparsec.Text     as P
 import           Data.Binary              (Binary)
 import           Data.Char                (toLower)
@@ -90,11 +91,10 @@ import           System.PosixCompat.Files (FileStatus, fileExist, fileGroup,
                                            unionFileModes)
 import           System.PosixCompat.Types (FileMode, GroupID, UserID)
 #ifndef mingw32_HOST_OS
-import           System.Posix.User        (GroupEntry, GroupEntry (..),
-                                           UserEntry (..), getAllGroupEntries,
+import           System.Posix.User        (GroupEntry(..), UserEntry(..),getAllGroupEntries,
                                            getAllUserEntries,
                                            getGroupEntryForID,
-                                           getUserEntryForID, groupID, userID)
+                                           getUserEntryForID, groupID, userID, userName, groupName)
 #endif
 import           Text.Printf              (printf)
 import           Yi.Buffer
diff --git a/yi-core/src/Yi/Editor.hs b/yi-core/src/Yi/Editor.hs
index 32349a638..cf062e7a9 100644
--- a/yi-core/src/Yi/Editor.hs
+++ b/yi-core/src/Yi/Editor.hs
@@ -104,9 +104,8 @@ import           Prelude                        hiding (all, concatMap, foldl, f
 import           Lens.Micro.Platform            (Lens', lens, mapped,
                                                  use, view, (%=), (%~),
                                                  (&), (.~), (^.))
-import           Control.Monad                  (forM_, liftM)
-import           Control.Monad.Reader           (MonadReader (ask), asks,
-                                                 unless, when)
+import           Control.Monad                  (forM_, liftM, unless, when)
+import           Control.Monad.Reader           (MonadReader (ask), asks)
 import           Control.Monad.State            (gets, modify)
 import           Data.Binary                    (Binary, get, put)
 import           Data.Default                   (Default, def)
diff --git a/yi-core/src/Yi/Interact.hs b/yi-core/src/Yi/Interact.hs
index 7b9cdaf74..23c7466ab 100644
--- a/yi-core/src/Yi/Interact.hs
+++ b/yi-core/src/Yi/Interact.hs
@@ -72,7 +72,8 @@ import           Control.Applicative (Alternative ((<|>), empty))
 import           Control.Arrow       (first)
 import           Lens.Micro.Platform          (_1, _2, view)
 import qualified Control.Monad.Fail as Fail
-import           Control.Monad.State (MonadPlus (..), MonadTrans (lift), StateT)
+import           Control.Monad.State (MonadTrans (lift), StateT)
+import           Control.Monad       (MonadPlus(..))
 import           Data.Function       (on)
 import           Data.List           (groupBy)
 import qualified Data.Text           as T (Text, append, pack)
diff --git a/yi-core/src/Yi/Monad.hs b/yi-core/src/Yi/Monad.hs
index c77515175..2cb1b7baf 100644
--- a/yi-core/src/Yi/Monad.hs
+++ b/yi-core/src/Yi/Monad.hs
@@ -9,9 +9,10 @@ module Yi.Monad (
                  with,
                 ) where
 
+import Control.Monad (when)
 import Control.Monad.Base   (MonadBase, liftBase)
 import Control.Monad.Reader (MonadReader, ask)
-import Control.Monad.State  (MonadState, get, gets, put, when)
+import Control.Monad.State  (MonadState, get, gets, put)
 import Lens.Micro.Platform (Getting, ASetter, (.=), use)
 
 -- | Combination of the Control.Monad.State 'modify' and 'gets'