Generalize type of withKubernetesNamespace'

codedownio · Aug 2, 2024 · 394f498 · 394f498
1 parent 53c9aea
commit 394f498
Showing 1 changed file with 2 additions and 2 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
@@ -47,8 +47,8 @@ withKubernetesNamespace' :: (
   )
   -- | Namespace to create
   => Text
-  -> m ()
-  -> m ()
+  -> m a
+  -> m a
 withKubernetesNamespace' namespace = bracket_ (create namespace) (destroy namespace)
 
 create :: (