From ba23138adeb13bf6586814ff45ba343c5120e557 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 11 Oct 2019 09:13:20 -0400 Subject: [PATCH] :fire: a redundant constraint. --- semantic-core/test/Generators.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/semantic-core/test/Generators.hs b/semantic-core/test/Generators.hs index 37e8dc0bf..b7443961f 100644 --- a/semantic-core/test/Generators.hs +++ b/semantic-core/test/Generators.hs @@ -31,7 +31,7 @@ name = Gen.prune (named' <$> names) where boolean :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) boolean = Core.bool <$> Gen.bool -variable :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) +variable :: (Carrier sig t, MonadGen m) => m (t Name) variable = pure . namedValue <$> name ifthenelse :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) -> m (t Name)