mirror of
https://github.com/github/semantic.git
synced 2025-01-02 04:10:29 +03:00
Use an empty graph when resuming a load error
This commit is contained in:
parent
82db9f805e
commit
f902cac04f
@ -40,6 +40,7 @@ import Data.Abstract.Evaluatable
|
|||||||
import Data.Abstract.Module
|
import Data.Abstract.Module
|
||||||
import qualified Data.Abstract.ModuleTable as ModuleTable
|
import qualified Data.Abstract.ModuleTable as ModuleTable
|
||||||
import Data.Abstract.Package as Package
|
import Data.Abstract.Package as Package
|
||||||
|
import qualified Data.Abstract.ScopeGraph as ScopeGraph
|
||||||
import Data.Abstract.Value.Abstract as Abstract
|
import Data.Abstract.Value.Abstract as Abstract
|
||||||
import Data.Abstract.Value.Concrete as Concrete
|
import Data.Abstract.Value.Concrete as Concrete
|
||||||
(Value, ValueError (..), runBoolean, runFunction, runValueErrorWith)
|
(Value, ValueError (..), runBoolean, runFunction, runValueErrorWith)
|
||||||
@ -354,7 +355,7 @@ resumingLoadError :: ( Applicative (m address value effects)
|
|||||||
=> m address value (Resumable (BaseError (LoadError address)) ': effects) a
|
=> m address value (Resumable (BaseError (LoadError address)) ': effects) a
|
||||||
-> m address value effects a
|
-> m address value effects a
|
||||||
resumingLoadError = runLoadErrorWith (\ baseError -> traceError "LoadError" baseError *> case baseErrorException baseError of
|
resumingLoadError = runLoadErrorWith (\ baseError -> traceError "LoadError" baseError *> case baseErrorException baseError of
|
||||||
ModuleNotFoundError _ -> pure (undefined, (lowerBound, hole)))
|
ModuleNotFoundError _ -> pure (ScopeGraph.emptyGraph, (lowerBound, hole)))
|
||||||
|
|
||||||
resumingEvalError :: ( Applicative (m effects)
|
resumingEvalError :: ( Applicative (m effects)
|
||||||
, Effectful m
|
, Effectful m
|
||||||
|
Loading…
Reference in New Issue
Block a user