@@ -150,7 +150,7 @@ readFile' f = do s <- readFileUTF8 f
150150
151151runLhsWriterTest :: String -> IO Bool
152152runLhsWriterTest format =
153− runTest ("(lhs) " ++ format ++ " writer") ["-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format)
153+ runTest ("(lhs) " ++ format ++ " writer") ["--columns=78", "-r", "native", "-s", "-w", format] "lhs-test.native" ("lhs-test" <.> format)
154154
155155runLhsReaderTest :: String -> IO Bool
156156runLhsReaderTest format =