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

Generalize resumingBadModuleResolutions.

Browse Source
This commit is contained in:
Rob Rix 2018-05-06 12:04:29 -04:00
parent c92ba91068
commit 3a2ba0b631
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Analysis/Abstract/BadModuleResolutions.hs
View File

@ -7,7 +7,7 @@ import Control.Abstract.Evaluator
import Data.Abstract.Evaluatable import Data.Abstract.Evaluatable
import Prologue import Prologue
resumingBadModuleResolutions :: Evaluator location term value (Resumable ResolutionError ': effects) a -> Evaluator location term value effects a resumingBadModuleResolutions :: Effectful m => m (Resumable ResolutionError ': effects) a -> m effects a
resumingBadModuleResolutions = raiseHandler (relay pure (\ (Resumable err) yield -> traceM ("ResolutionError:" <> show err) *> case err of resumingBadModuleResolutions = raiseHandler (relay pure (\ (Resumable err) yield -> traceM ("ResolutionError:" <> show err) *> case err of
NotFoundError nameToResolve _ _ -> yield nameToResolve NotFoundError nameToResolve _ _ -> yield nameToResolve
GoImportError pathToResolve -> yield [pathToResolve])) GoImportError pathToResolve -> yield [pathToResolve]))