1
1
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00

Fix namespaceScope.

This commit is contained in:
Rob Rix 2018-10-24 10:06:22 -04:00
parent 090a395bb6
commit ee1491ab51

View File

@ -155,11 +155,12 @@ namespaceScope heap ns@(Namespace _ _ _)
= either (const Nothing) (snd . snd)
. run
. runFresh
. runEvaluator
. runAddressError
. runState heap
. runState (lowerBound @Span)
. runReader (lowerBound @Span)
. runReader (ModuleInfo "SpecHelper.hs")
. raiseHandler (runState heap)
. raiseHandler (runState (lowerBound @Span))
. raiseHandler (runReader (lowerBound @Span))
. raiseHandler (runReader (ModuleInfo "SpecHelper.hs"))
. runDeref
$ materializeEnvironment ns