avoid warning for absurdU with cpp

polysemy-research · May 25, 2024 · efb9566 · efb9566
1 parent eac24b8
commit efb9566
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/Polysemy/Internal/Union.hs b/src/Polysemy/Internal/Union.hs
@@ -295,7 +295,11 @@ extract (Union (There _) _) = error "Unsafe use of UnsafeMkElemOf"
 ------------------------------------------------------------------------------
 -- | An empty union contains nothing, so this function is uncallable.
 absurdU :: Union '[] m a -> b
-absurdU (Union _ _) = error "Unsafe use of UnsafeMkElemOf"
+#if __GLASGOW_HASKELL__ >= 902
+absurdU = \case
+#else
+absurdU _ = error "Unsafe use of UnsafeMkElemOf"
+#endif
 
 
 ------------------------------------------------------------------------------