Stash

NicolasT · Apr 2, 2024 · f4ad3aa · f4ad3aa
1 parent 15afa8f
commit f4ad3aa
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/landlock/landlock.cabal b/landlock/landlock.cabal
@@ -154,7 +154,6 @@ test-suite landlock-test
     , filepath                 ^>=1.4.2.1  || ^>=1.5
     , landlock
     , landlock-internal
-    , network                  ^>=3.1.4.0
     , process                  ^>=1.6.9.0
     , QuickCheck               ^>=2.14.2
     , quickcheck-classes-base  ^>=0.6.2.0

diff --git a/landlock/test/landlock-test.hs b/landlock/test/landlock-test.hs
@@ -11,7 +11,6 @@ import Control.Exception.Base (handleJust)
 import Control.Monad (unless)
 import Data.List (nub, sort, (\\))
 import Data.Proxy (Proxy (Proxy))
-import Network.Socket (PortNumber)
 import System.Environment (lookupEnv)
 import System.Exit (ExitCode (..))
 import System.FilePath ((</>))
@@ -181,7 +180,7 @@ instance Arbitrary (Rule 'PathBeneath) where
 instance Arbitrary (Rule 'NetPort) where
   arbitrary =
     netPort
-      <$> fmap (fromIntegral :: Int -> PortNumber) arbitrary
+      <$> arbitraryBoundedEnum
       <*> fmap (nub . sort) arbitrary
 
 instance Arbitrary AccessFsFlag where