diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-01 20:12:37 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-11-01 20:12:37 -0700 |
| commit | dd0c17ac6c5c34b09b4e79a0fa753745bacfe122 (patch) | |
| tree | 0d8bf06c82c718504b1398471d9adbbd7dd45aa1 /lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs | |
| parent | 15eafc587c41e041194d1c4c84b2b94410a06756 (diff) | |
| parent | b67a6ae12f8107b2d1714659f8a121274d5833f9 (diff) | |
| download | stylish-haskell-dd0c17ac6c5c34b09b4e79a0fa753745bacfe122.tar.gz | |
Merge tag 'v0.9.4.3'
v0.9.4.3
Diffstat (limited to 'lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs')
| -rw-r--r-- | lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs b/lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs index dbc594c..e41bace 100644 --- a/lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs +++ b/lib/Language/Haskell/Stylish/Step/TrailingWhitespace.hs @@ -19,4 +19,9 @@ dropTrailingWhitespace = reverse . dropWhile isSpace . reverse -------------------------------------------------------------------------------- step :: Step -step = makeStep "TrailingWhitespace" $ \ls _ -> map dropTrailingWhitespace ls +step = makeStep "TrailingWhitespace" $ \ls _ -> map dropTrailingWhitespace' ls + where + dropTrailingWhitespace' l = case l of + -- Preserve page breaks + "\12" -> l + _ -> dropTrailingWhitespace l |