From 2d2b3421db1b6c8d019ee090469ed21d0dd95683 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 22 Oct 2018 09:48:10 -0400 Subject: [PATCH] Error, not Exc. --- src/Semantic/Parse.hs | 2 +- src/Semantic/REPL.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Semantic/Parse.hs b/src/Semantic/Parse.hs index 187410bb3..dafee7e8a 100644 --- a/src/Semantic/Parse.hs +++ b/src/Semantic/Parse.hs @@ -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 diff --git a/src/Semantic/REPL.hs b/src/Semantic/REPL.hs index 7090a36e6..790b07015 100644 --- a/src/Semantic/REPL.hs +++ b/src/Semantic/REPL.hs @@ -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