We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent fa4ded2 commit 2a9daffCopy full SHA for 2a9daff
semantic-analysis/src/Analysis/Analysis/DeadCode.hs
@@ -66,10 +66,10 @@ runFile eval subterms file = traverse run file
66
where run term = do
67
modify (<> subterms term)
68
A.runStatement (const pure)
69
- $ runReader (fileRef file)
70
- $ A.runEnv @Unit
71
- $ runFail
72
- $ convergeTerm (A.runStore @Unit . runDomain . fix (cacheTerm . evalDead))
+ . runReader (fileRef file)
+ . A.runEnv @Unit
+ . runFail
+ . convergeTerm (A.runStore @Unit . runDomain . fix (cacheTerm . evalDead))
73
$ term
74
evalDead eval' subterm = do
75
modify (Set.delete subterm)
0 commit comments