More warning fixes

codedownio · Jul 26, 2024 · 60ad111 · 60ad111
1 parent 4c78d1a
commit 60ad111
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 7 deletions.
diff --git a/sandwich-contexts-kubernetes/lib/Test/Sandwich/Contexts/Kubernetes/Namespace.hs b/sandwich-contexts-kubernetes/lib/Test/Sandwich/Contexts/Kubernetes/Namespace.hs
@@ -8,7 +8,6 @@ module Test.Sandwich.Contexts.Kubernetes.Namespace (
   ) where
 
 import Control.Monad
-import Control.Monad.Catch (MonadThrow)
 import Control.Monad.IO.Unlift
 import qualified Data.List as L
 import Data.String.Interpolate
@@ -24,7 +23,7 @@ import UnliftIO.Process
 -- | Around-style node to create a Kubernetes namespace, and destroy it at the end.
 -- If you're installing something via Helm 3, you may not need this as you can just pass "--create-namespace".
 withKubernetesNamespace :: (
-  MonadUnliftIO m, HasLabel context "kubernetesCluster" KubernetesClusterContext, MonadThrow m
+  MonadUnliftIO m, HasLabel context "kubernetesCluster" KubernetesClusterContext
   )
   -- | Namespace to create
   => Text

diff --git a/sandwich-webdriver/src/Test/Sandwich/WebDriver/Internal/Util.hs b/sandwich-webdriver/src/Test/Sandwich/WebDriver/Internal/Util.hs
@@ -9,10 +9,6 @@ import qualified System.Random as R
 import Test.Sandwich (expectationFailure)
 import UnliftIO.Exception
 
-#ifdef mingw32_HOST_OS
-import System.IO
-#endif
-
 
 -- * Exceptions
 

diff --git a/sandwich-webdriver/src/Test/Sandwich/WebDriver/Internal/Video.hs b/sandwich-webdriver/src/Test/Sandwich/WebDriver/Internal/Video.hs
@@ -5,7 +5,7 @@ module Test.Sandwich.WebDriver.Internal.Video where
 import Control.Monad.IO.Unlift
 import Control.Monad.Logger
 import Control.Monad.Reader
-import Data.Function
+import Data.Function ((&))
 import Data.String.Interpolate
 import System.Process
 import Test.Sandwich