github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00
Code Issues Projects Releases Wiki Activity

Reformat the signature for concreteAnalysis.

Browse Source
This commit is contained in:
Rob Rix 2019-11-04 14:03:31 -05:00
parent 07568e55a5
commit a667c656a1
No known key found for this signature in database
GPG Key ID: F188A01508EA1CF7
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
semantic-analysis/src/Analysis/Concrete.hs
View File

@ -117,21 +117,22 @@ runFile eval file = traverse run file
. A.runEnv @name
. fix (eval concreteAnalysis)
concreteAnalysis :: ( Carrier sig m
, Foldable term
, IsString name
, Member (A.Env name Precise) sig
, Member (A.Heap Precise (Concrete term name)) sig
, Member (Reader (Env name)) sig
, Member (Reader Path.AbsRelFile) sig
, Member (Reader Span) sig
, Member (State (Heap term name)) sig
, MonadFail m
, Ord name
, Show name
, Show (term name)
)
=> Analysis term name Precise (Concrete term name) m
concreteAnalysis
:: ( Carrier sig m
, Foldable term
, IsString name
, Member (A.Env name Precise) sig
, Member (A.Heap Precise (Concrete term name)) sig
, Member (Reader (Env name)) sig
, Member (Reader Path.AbsRelFile) sig
, Member (Reader Span) sig
, Member (State (Heap term name)) sig
, MonadFail m
, Ord name
, Show name
, Show (term name)
)
=> Analysis term name Precise (Concrete term name) m
concreteAnalysis = Analysis{..}
where deref = A.deref
assign = A.assign