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