diff options
| -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 |