From a8bec7209884e8688e93c7a51e6e57d2a2c461af Mon Sep 17 00:00:00 2001
From: Andrzej Rybczak <andrzej@rybczak.net>
Date: Sat, 16 Dec 2023 10:39:48 +0100
Subject: [PATCH] Don't show minimal definition of KnownEffects in haddock

---
 effectful-core/src/Effectful/Internal/Effect.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/effectful-core/src/Effectful/Internal/Effect.hs b/effectful-core/src/Effectful/Internal/Effect.hs
index 206e6ba..407c248 100644
--- a/effectful-core/src/Effectful/Internal/Effect.hs
+++ b/effectful-core/src/Effectful/Internal/Effect.hs
@@ -131,6 +131,9 @@ infixr 5 ++
 -- | Calculate length of a list of known effects.
 class KnownEffects (es :: [Effect]) where
   knownEffectsLength :: Int
+  knownEffectsLength =
+  -- Don't show "minimal complete definition" in haddock.
+    error "knownEffectsLength"
 
 instance KnownEffects es => KnownEffects (e : es) where
   knownEffectsLength = 1 + knownEffectsLength @es