From 7c51a181c8af97bd1b9ac8f50eca2e98cb351d9d Mon Sep 17 00:00:00 2001 From: sniperrifle2004 Date: Tue, 19 Dec 2017 01:17:19 +0100 Subject: [PATCH] Fix operators for ThingWith --- src-literatetests/10-tests.blt | 1 + src-literatetests/tests-context-free.blt | 1 + src/Language/Haskell/Brittany/Internal/Layouters/IE.hs | 2 +- 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt index 6091095..8c5b547 100644 --- a/src-literatetests/10-tests.blt +++ b/src-literatetests/10-tests.blt @@ -666,6 +666,7 @@ import Test ( T , T3(..) , T4(T4) , T5(T5, t5) + , T6((<|>)) , (+) ) diff --git a/src-literatetests/tests-context-free.blt b/src-literatetests/tests-context-free.blt index 7a004ce..5f21502 100644 --- a/src-literatetests/tests-context-free.blt +++ b/src-literatetests/tests-context-free.blt @@ -714,6 +714,7 @@ import Test ( T , T3(..) , T4(T4) , T5(T5, t5) + , T6((<|>)) , (+) ) diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs index 4333d8e..9876f01 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs @@ -47,7 +47,7 @@ layoutIE lie@(L _ ie) = docWrapNode lie $ case ie of docSeq $ [ien, docLit $ Text.pack "("] ++ ( intersperse docCommaSep - (map (docLit . lrdrNameToText . prepareName) ns) + (map ((docLit =<<) . lrdrNameToTextAnn . prepareName) ns) ++ intersperse docCommaSep (map prepareFL fs) ) ++ [docLit $ Text.pack ")"]