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

🔥 the spurious old live set reader.

This commit is contained in:
Rob Rix 2017-12-21 13:21:53 -05:00
parent 19c6c2a135
commit 38fbc49500

View File

@ -18,14 +18,12 @@ import Data.Abstract.Value
import Data.Function (fix)
import Data.Functor.Foldable (Base, Recursive(..))
import Data.Semigroup
import Data.Set
-- | The effects necessary for concrete interpretation.
type Interpreter v
= '[ Fail
, Reader (Live (LocationFor v) v)
, State (Store (LocationFor v) v)
, Reader (Set (Address (LocationFor v) v))
, Reader (Environment (LocationFor v) v)
]