Modernize GHC options

mrkkrp · Jun 26, 2023 · 700cffc · 700cffc
1 parent 4c912a9
commit 700cffc
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 13 deletions.
diff --git a/Path/IO.hs b/Path/IO.hs
@@ -487,7 +487,7 @@ listDirRecurRel dir =
 -- traversing symlinked directories, but recreating symlinks in the target
 -- directory according to their targets in the source directory.
 copyDirRecur ::
-  (MonadIO m, MonadCatch m) =>
+  (MonadIO m) =>
   -- | Source
   Path b0 Dir ->
   -- | Destination
@@ -512,7 +512,7 @@ copyDirRecur = copyDirRecurGen True
 -- traversing symlinked directories, but recreating symlinks in the target
 -- directory according to their targets in the source directory.
 copyDirRecur' ::
-  (MonadIO m, MonadCatch m) =>
+  (MonadIO m) =>
   -- | Source
   Path b0 Dir ->
   -- | Destination

diff --git a/path-io.cabal b/path-io.cabal
@@ -42,34 +42,30 @@ library
         unix-compat
 
     if flag(dev)
-        ghc-options: -Wall -Werror
+        ghc-options:
+            -Wall -Werror -Wredundant-constraints -Wpartial-fields
+            -Wunused-packages
 
     else
         ghc-options: -O2 -Wall
 
-    if flag(dev)
-        ghc-options:
-            -Wcompat -Wincomplete-record-updates -Wincomplete-uni-patterns
-            -Wnoncanonical-monad-instances
-
 test-suite tests
     type:             exitcode-stdio-1.0
     main-is:          Main.hs
     hs-source-dirs:   tests
     default-language: GHC2021
     build-depends:
         base >=4.15 && <5.0,
-        directory >=1.3.2.0 && <1.4,
         exceptions >=0.8 && <0.11,
         hspec >=2.0 && <3.0,
-        filepath >=1.2 && <1.5,
         path >=0.7.1 && <0.10,
         path-io,
-        transformers >=0.3 && <0.7,
         unix-compat
 
     if flag(dev)
-        ghc-options: -Wall -Werror
+        ghc-options:
+            -Wall -Werror -Wredundant-constraints -Wpartial-fields
+            -Wunused-packages
 
     else
         ghc-options: -O2 -Wall
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -166,7 +166,7 @@ listDirRecurCyclicSpec =
 
 -- | Follows symbolic links.
 listDirRecurCyclic ::
-  (MonadIO m, MonadThrow m) =>
+  (MonadIO m) =>
   -- | Directory to list
   Path b Dir ->
   -- | Sub-directories and files