github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

🔥 a redundant constraint.

Browse Source
This commit is contained in:
Rob Rix 2019-10-11 09:13:20 -04:00
parent b99b9f90df
commit 9b48331945
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-core/test/Generators.hs
View File

@ -31,7 +31,7 @@ name = Gen.prune (named' <$> names) where
boolean :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) boolean :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name)
boolean = Core.bool <$> Gen.bool 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 variable = pure . namedValue <$> name
ifthenelse :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) -> m (t Name) ifthenelse :: (Carrier sig t, Member Core.Core sig, MonadGen m) => m (t Name) -> m (t Name)