1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 06:11:49 +03:00

📝 the effects in DeadCodeInterpreter.

This commit is contained in:
Rob Rix 2017-12-21 13:26:05 -05:00
parent aa708a1964
commit 342b6372e8

View File

@ -21,10 +21,10 @@ import Data.Set
-- | The effects necessary for dead code analysis.
type DeadCodeInterpreter t v
= '[ State (Dead t)
, Fail
, State (Store (LocationFor v) v)
, Reader (Environment (LocationFor v) v)
= '[ State (Dead t) -- For 'MonadDead'.
, Fail -- For 'MonadFail'.
, State (Store (LocationFor v) v) -- For 'MonadStore'.
, Reader (Environment (LocationFor v) v) -- For 'MonadEnv'.
]
type DeadCodeResult t v = Final (DeadCodeInterpreter t v) v