github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-27 12:57:49 +03:00
Code Issues Projects Releases Wiki Activity

🔥 more redundant constraints.

Browse Source
This commit is contained in:
Rob Rix 2018-06-12 15:12:54 -04:00
parent 4010b3fb92
commit 3a741e31f8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Control/Abstract/Evaluator.hs
View File

@ -61,8 +61,8 @@ data LoopControl address value resume where
Break :: address -> LoopControl address value address
Continue :: address -> LoopControl address value address
deriving instance (Eq address, Eq value) => Eq (LoopControl address value a)
deriving instance (Show address, Show value) => Show (LoopControl address value a)
deriving instance Eq address => Eq (LoopControl address value a)
deriving instance Show address => Show (LoopControl address value a)
throwBreak :: forall address value effects
. Member (LoopControl address value) effects