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 ")"]