From 8c3a9bec251eb80df64e5e6b5b539ebbff9d3f78 Mon Sep 17 00:00:00 2001 From: Lennart Spitzner Date: Mon, 18 Dec 2017 18:56:50 +0100 Subject: [PATCH] Fix operators in import list --- 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 97a5463..6091095 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) + , (+) ) #test hiding diff --git a/src-literatetests/tests-context-free.blt b/src-literatetests/tests-context-free.blt index f9b4eb6..7a004ce 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) + , (+) ) #test hiding diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs index df1b6ff..4333d8e 100644 --- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs +++ b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs @@ -59,7 +59,7 @@ layoutIE lie@(L _ ie) = docWrapNode lie $ case ie of , docLit . Text.pack . moduleNameString $ unLoc n ] _ -> docEmpty - where ien = docLit $ rdrNameToText $ ieName ie + where ien = docLit =<< lrdrNameToTextAnn (ieName <$> lie) layoutIEList :: [LIE RdrName] -> ToBriDocM BriDocNumbered layoutIEList lies = do