From caf23dcf3970f19cdeee745187ee36f7763e370f Mon Sep 17 00:00:00 2001 From: Timothy Clem Date: Wed, 26 Sep 2018 16:55:13 -0500 Subject: [PATCH] const is a bit nicer --- src/Semantic/Diff.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/Diff.hs b/src/Semantic/Diff.hs index 4f8f75f9a..e4d0d7437 100644 --- a/src/Semantic/Diff.hs +++ b/src/Semantic/Diff.hs @@ -33,7 +33,7 @@ runDiff JSONGraphDiffRenderer = withParsedBlobPairs (const pure) (render . ren renderAdjGraph blob diff = renderJSONAdjDiff blob (renderTreeGraph diff) runDiff SExpressionDiffRenderer = withParsedBlobPairs (const pure) (const (serialize (SExpression ByConstructorName))) runDiff ShowDiffRenderer = withParsedBlobPairs (const pure) (const (serialize Show)) -runDiff DOTDiffRenderer = withParsedBlobPairs (const pure) (\_ -> render renderTreeGraph) >=> serialize (DOT (diffStyle "diffs")) +runDiff DOTDiffRenderer = withParsedBlobPairs (const pure) (const (render renderTreeGraph)) >=> serialize (DOT (diffStyle "diffs")) data SomeTermPair typeclasses ann where SomeTermPair :: ApplyAll typeclasses syntax => Join These (Term syntax ann) -> SomeTermPair typeclasses ann