From 20e9cb33a9db874db8ba894abce9f9d5213dc830 Mon Sep 17 00:00:00 2001 From: Timothy Clem Date: Tue, 1 Aug 2017 09:27:06 -0700 Subject: [PATCH] Turn on ruby assignment for sexpressions so we can test --- src/Semantic.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Semantic.hs b/src/Semantic.hs index 98096169b..69e5fd0c3 100644 --- a/src/Semantic.hs +++ b/src/Semantic.hs @@ -52,6 +52,7 @@ parseBlob renderer blob@Blob{..} = case (renderer, blobLanguage) of (JSONTermRenderer, _) -> parse syntaxParser blob >>= decorate identifierAlgebra >>= render (renderJSONTerm blob) (SExpressionTermRenderer, Just Language.Markdown) -> parse markdownParser blob >>= decorate constructorLabel >>= render renderSExpressionTerm . fmap keepConstructorLabel (SExpressionTermRenderer, Just Language.Python) -> parse pythonParser blob >>= decorate constructorLabel >>= render renderSExpressionTerm . fmap keepConstructorLabel + (SExpressionTermRenderer, Just Language.Ruby) -> parse rubyParser blob >>= decorate constructorLabel >>= render renderSExpressionTerm . fmap keepConstructorLabel (SExpressionTermRenderer, Just Language.JSON) -> parse jsonParser blob >>= decorate constructorLabel >>= render renderSExpressionTerm . fmap keepConstructorLabel (SExpressionTermRenderer, _) -> parse syntaxParser blob >>= render renderSExpressionTerm . fmap keepCategory (IdentityTermRenderer, Just Language.Markdown) -> pure Nothing