class
class Dysfunctional (field :: k) (k6 :: k1) (s :: k2) (t :: k3) (a :: k4) (b :: k5) | field s -> k6 t a b, field t -> k6 s a bHow about a magic trick? I'm gonna make the coverage condition disappear.
Instances1Dysfunctional
TypeInferenceLoopDefined in optics-core-0.4.1.1 · Optics.Internal.Magic"Type inference for the local binding failed. Write the type"
"signature yourself or disable monomorphism restriction with"
"NoMonomorphismRestriction LANGUAGE pragma so GHC infers it."
field k7 s t a b => Dysfunctional field k7 s t a bShow something useful when type inference goes into a loop and stops with "reduction stack overflow" message (sometimes happens when trying to infer types of local bindings when monomorphism restriction is enabled).