1
1
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +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. -- | The effects necessary for dead code analysis.
type DeadCodeInterpreter t v type DeadCodeInterpreter t v
= '[ State (Dead t) = '[ State (Dead t) -- For 'MonadDead'.
, Fail , Fail -- For 'MonadFail'.
, State (Store (LocationFor v) v) , State (Store (LocationFor v) v) -- For 'MonadStore'.
, Reader (Environment (LocationFor v) v) , Reader (Environment (LocationFor v) v) -- For 'MonadEnv'.
] ]
type DeadCodeResult t v = Final (DeadCodeInterpreter t v) v type DeadCodeResult t v = Final (DeadCodeInterpreter t v) v