From 60ad111de1938f95d10a9a69a76e7ea30cfe4e34 Mon Sep 17 00:00:00 2001
From: Tom McLaughlin <tom@codedown.io>
Date: Thu, 25 Jul 2024 18:23:51 -0700
Subject: [PATCH] More warning fixes

---
 .../lib/Test/Sandwich/Contexts/Kubernetes/Namespace.hs        | 3 +--
 .../src/Test/Sandwich/WebDriver/Internal/Util.hs              | 4 ----
 .../src/Test/Sandwich/WebDriver/Internal/Video.hs             | 2 +-
 3 files changed, 2 insertions(+), 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
index 4a3fa59b..6c57b2fb 100644
--- 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
index 59c5d403..472ee004 100644
--- 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
index 3ac3d24a..dfd0ec00 100644
--- 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