diff options
author | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-20 20:31:32 +0200 |
---|---|---|
committer | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-20 20:31:32 +0200 |
commit | f6f1687c2de8b801276b465100d0c5d78be65c7a (patch) | |
tree | 2a942ab8b713a7de03fc170ed30553a484bc38b9 /src | |
parent | 6349b54fc28abf5a7af1e8d520866d4e425d3fa7 (diff) | |
download | stylish-haskell-f6f1687c2de8b801276b465100d0c5d78be65c7a.tar.gz |
Improved long line detection
Diffstat (limited to 'src')
-rw-r--r-- | src/Language/Haskell/Stylish/Step/Imports.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Language/Haskell/Stylish/Step/Imports.hs b/src/Language/Haskell/Stylish/Step/Imports.hs index fa1b3ff..f47d594 100644 --- a/src/Language/Haskell/Stylish/Step/Imports.hs +++ b/src/Language/Haskell/Stylish/Step/Imports.hs @@ -126,10 +126,12 @@ prettyImport columns Align{..} padQualified padName longest imp = InlineWithBreak -> longListWrapper inlineWrap inlineWithBreakWrap Multiline -> longListWrapper inlineWrap multilineWrap where - longListWrapper shortWrap longWrap = - if listAlign == NewLine || length shortWrap > 1 - then longWrap - else shortWrap + longListWrapper shortWrap longWrap + | listAlign == NewLine + || length shortWrap > 1 + || length (head shortWrap) > columns + = longWrap + | otherwise = shortWrap inlineWrap = inlineWrapper $ mapSpecs |