Add a couple HasCallStack noci

codedownio · Dec 5, 2024 · 87a2277 · 87a2277
1 parent fe7defd
commit 87a2277
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/src/TestLib/TestSearchers.hs b/tests/src/TestLib/TestSearchers.hs
@@ -25,14 +25,14 @@ import UnliftIO.Process
 -- Testing for successful build
 
 testKernelSearchersBuild :: (
-  MonadIO m, MonadMask m, MonadUnliftIO m, MonadBaseControl IO m
+  HasCallStack, MonadIO m, MonadMask m, MonadUnliftIO m, MonadBaseControl IO m
   , HasBaseContext context, HasBootstrapNixpkgs context
   ) => Text -> SpecFree context m ()
 testKernelSearchersBuild kernel = it [i|#{kernel}: package searchers build|] $ do
   void $ testBuild [i|kernels."#{kernel}".packageSearch|]
 
 testHasExpectedFields :: (
-  MonadIO m, MonadMask m, MonadUnliftIO m, MonadBaseControl IO m
+  HasCallStack, MonadIO m, MonadMask m, MonadUnliftIO m, MonadBaseControl IO m
   , HasBaseContext context, HasBootstrapNixpkgs context
   ) => Text -> SpecFree context m ()
 testHasExpectedFields kernel = it [i|#{kernel}: has expected fields|] $ do