diff --git a/src-literatetests/15-regressions.blt b/src-literatetests/15-regressions.blt
index 0d40271..325e18a 100644
--- a/src-literatetests/15-regressions.blt
+++ b/src-literatetests/15-regressions.blt
@@ -668,3 +668,7 @@ nand _ _         = True
 
 nor False False = True
 _ `nor` _       = False
+
+#test issue 256 prefix operator match
+
+f ((:) a as) = undefined
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs
index 234dac7..cd1b31e 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Pattern.hs
@@ -86,7 +86,7 @@ layoutPat (ghcDL -> lpat@(L _ pat)) = docWrapNode lpat $ case pat of
     --       return $ (x1' Seq.<| middle) Seq.|> xN'
   ConPatIn lname (PrefixCon args) -> do
     -- Abc a b c -> expr
-    let nameDoc = lrdrNameToText lname
+    nameDoc <- lrdrNameToTextAnn lname
     argDocs <- layoutPat `mapM` args
     if null argDocs
       then return <$> docLit nameDoc