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

We don’t actually need the functional dependency here.

Browse Source
This commit is contained in:
Rob Rix 2018-03-14 11:19:19 -04:00
parent 34f2f04931
commit 9ef31e03ec
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Abstract/Address.hs
View File

@ -1,4 +1,4 @@
{-# LANGUAGE MultiParamTypeClasses, TypeFamilyDependencies #-}
{-# LANGUAGE MultiParamTypeClasses, TypeFamilies #-}
module Data.Abstract.Address where
import Data.Abstract.FreeVariables
@ -25,7 +25,7 @@ newtype Monovariant = Monovariant { unMonovariant :: Name }
class AbstractLocation location where
-- | The type into which stored values will be written for a given location type.
type family Cell location = (res :: * -> *) | res -> location
type family Cell location :: * -> *
instance AbstractLocation Precise where
type Cell Precise = Latest