Fix operators for ThingWith

src-literatetests/10-tests.blt

@@ -666,6 +666,7 @@ import           Test                                     ( T
                                                           , T3(..)
                                                           , T4(T4)
                                                           , T5(T5, t5)
+                                                          , T6((<|>))
                                                           , (+)
                                                           )
 

src-literatetests/tests-context-free.blt

@@ -714,6 +714,7 @@ import           Test                                     ( T
                                                           , T3(..)
                                                           , T4(T4)
                                                           , T5(T5, t5)
+                                                          , T6((<|>))
                                                           , (+)
                                                           )
 

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