github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-14 17:31:48 +03:00
Code Issues Projects Releases Wiki Activity

Define a carrier type for Unit.

Browse Source 
Co-Authored-By: Ayman Nadeem <aymannadeem@gmail.com>
This commit is contained in:
Rob Rix 2018-12-11 15:39:20 -05:00
parent bbad0f54ed
commit d7550e5b65
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,6 +25,7 @@ module Control.Abstract.Value
, runWhile , runWhile
, WhileC(..) , WhileC(..)
, Unit(..) , Unit(..)
, UnitC(..)
) where ) where
import Control.Abstract.Evaluator import Control.Abstract.Evaluator
@ -198,6 +199,7 @@ instance HFunctor (Unit value) where
instance Effect (Unit value) where instance Effect (Unit value) where
handle state handler (Unit k) = Unit (handler . (<$ state) . k) handle state handler (Unit k) = Unit (handler . (<$ state) . k)
newtype UnitC value m a = UnitC { runUnitC :: m a }
class Show value => AbstractIntro value where class Show value => AbstractIntro value where
-- | Construct an abstract unit value. -- | Construct an abstract unit value.