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

Extra constraint

Browse Source
This commit is contained in:
Timothy Clem 2018-03-16 13:22:34 -07:00
parent 9d767ba861
commit 7b558445d6
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Control/Abstract/Value.hs
View File

@ -56,7 +56,7 @@ class (Monad m, Show value) => MonadValue value m where
-- necessary to satisfy implementation details of Haskell left/right shift, -- necessary to satisfy implementation details of Haskell left/right shift,
-- but it's fine, since these are only ever operating on integral values. -- but it's fine, since these are only ever operating on integral values.
liftBitwise2 :: (forall a . (Integral a, Bits a) => a -> a -> a) liftBitwise2 :: (forall a . (Integral a, Bits a) => a -> a -> a)
-> (value -> value -> m value) -> (value -> value -> m value)
-- | Construct an abstract boolean value. -- | Construct an abstract boolean value.
boolean :: Bool -> m value boolean :: Bool -> m value
@ -130,7 +130,6 @@ doWhile body cond = loop $ \ continue -> body *> do
instance ( Monad m instance ( Monad m
, MonadAddressable location Value m , MonadAddressable location Value m
, MonadAnalysis term Value m , MonadAnalysis term Value m
, Show location
) )
=> MonadValue Value m where => MonadValue Value m where