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

provide Bitwise effect

Browse Source
This commit is contained in:
Ayman Nadeem 2018-12-14 16:42:59 -05:00
parent 8aad872c24
commit eb50b794e6
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Semantic/Analysis.hs
View File

@ -32,9 +32,10 @@ type DomainC term address value m
( BooleanC value (Eff
( StringC value (Eff
( NumericC value (Eff
( BitwiseC value (Eff
( UnitC value (Eff
( InterposeC (Resumable (BaseError (UnspecializedError address value))) (Eff
m)))))))))))))
m)))))))))))))))
-- | Evaluate a list of modules with the prelude for the passed language available, and applying the passed function to every module.
evaluate :: ( Carrier outerSig outer
@ -86,8 +87,11 @@ runDomainEffects :: ( AbstractValue term address value (DomainC term address val
, unitC ~ UnitC value (Eff (InterposeC (Resumable (BaseError (UnspecializedError address value))) (Eff m)))
, unitSig ~ (Unit value :+: Interpose (Resumable (BaseError (UnspecializedError address value))) :+: sig)
, Carrier unitSig unitC
, numericC ~ NumericC value (Eff unitC)
, numericSig ~ (Abstract.Numeric value :+: unitSig)
, bitwiseC ~ BitwiseC value (Eff unitC)
, bitwiseSig ~ (Abstract.Bitwise value :+: unitSig)
, Carrier bitwiseSig bitwiseC
, numericC ~ NumericC value (Eff bitwiseC)
, numericSig ~ (Abstract.Numeric value :+: bitwiseSig)
, Carrier numericSig numericC
, stringC ~ StringC value (Eff numericC)
, stringSig ~ (Abstract.String value :+: numericSig)
@ -122,7 +126,7 @@ runDomainEffects :: ( AbstractValue term address value (DomainC term address val
=> (term -> Evaluator term address value (DomainC term address value m) value)
-> Module (Either (proxy lang) term)
-> Evaluator term address value m value
runDomainEffects runTerm = raiseHandler runInterpose . runUnit . runNumeric . runString . runBoolean . runWhile . runFunction runTerm . either ((unit <*) . definePrelude) runTerm . moduleBody
runDomainEffects runTerm = raiseHandler runInterpose . runUnit . runBitwise . runNumeric . runString . runBoolean . runWhile . runFunction runTerm . either ((unit <*) . definePrelude) runTerm . moduleBody
-- | Evaluate a term recursively, applying the passed function at every recursive position.
--