github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Error, not Exc.

Browse Source
This commit is contained in:
Rob Rix 2018-10-22 09:48:10 -04:00
parent 3ef2efa73a
commit 2d2b3421db
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Parse.hs
View File

@ -25,7 +25,7 @@ import Semantic.Task
import Serializing.Format
-- | Using the specified renderer, parse a list of 'Blob's to produce a 'Builder' output.
runParse :: (Member Distribute sig, Member (Exc SomeException) sig, Member Task sig, Carrier sig m, MonadIO m) => TermRenderer output -> [Blob] -> m Builder
runParse :: (Member Distribute sig, Member (Error SomeException) sig, Member Task sig, Carrier sig m, MonadIO m) => TermRenderer output -> [Blob] -> m Builder
runParse JSONTermRenderer = withParsedBlobs' renderJSONError (render . renderJSONTerm) >=> serialize JSON
runParse JSONGraphTermRenderer = withParsedBlobs' renderJSONError (render . renderAdjGraph) >=> serialize JSON
where renderAdjGraph :: (Recursive t, ToTreeGraph TermVertex (Base t)) => Blob -> t -> JSON.JSON "trees" SomeJSON

2
src/Semantic/REPL.hs
View File

@ -131,7 +131,7 @@ instance (Carrier sig m, MonadIO m) => Carrier (Telemetry :+: sig) (TelemetryIgn
runTelemetryIgnoringStatC k logOptions
step :: ( Member (Env address) sig
, Member (Exc SomeException) sig
, Member (Error SomeException) sig
, Member REPL sig
, Member (Reader ModuleInfo) sig
, Member (Reader Span) sig