From 5828dd7969b9fc8c15207280d4c826d18dd1abb6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 26 May 2017 14:26:34 -0400 Subject: [PATCH] Rename go to parse. --- src/Semantic.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Semantic.hs b/src/Semantic.hs index e9ce61bb4..0ba02cec7 100644 --- a/src/Semantic.hs +++ b/src/Semantic.hs @@ -56,9 +56,9 @@ diffBlobPair decorator blobs = do -- | Parse a list of SourceBlobs and use the specified renderer to produce ByteString output. parseBlobs :: (Monoid output, StringConv output ByteString, NFData (Record fields)) => (Source -> Term (Syntax Text) (Record DefaultFields) -> Term (Syntax Text) (Record fields)) -> Renderer (Identity SourceBlob, Term (Syntax Text) (Record fields)) output -> [SourceBlob] -> IO ByteString parseBlobs decorator renderer blobs = - toS <$> renderConcurrently (fmap (runRenderer renderer) . go) (filter (not . nonExistentBlob) blobs) + toS <$> renderConcurrently (fmap (runRenderer renderer) . parse) (filter (not . nonExistentBlob) blobs) where - go blob = do + parse blob = do term <- decorator (source blob) <$> runParser (parserForLanguage (blobLanguage blob)) (source blob) pure (Identity blob, term)