diff options
| author | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-09 10:39:21 +0200 |
|---|---|---|
| committer | Ondřej Janošík <j.ondra14@gmail.com> | 2015-07-09 10:39:21 +0200 |
| commit | 9246c3c7e26af612a7c9aabf8daf88d17ef836ab (patch) | |
| tree | 5268a8e2a2f0511e1d5016d41d094795ca2fc42b | |
| parent | 36b68c573bcca27d6e651fb44c520ba88bd31669 (diff) | |
| download | stylish-haskell-9246c3c7e26af612a7c9aabf8daf88d17ef836ab.tar.gz | |
Fix for wrapping when max collumn count is set to small number
Wrapper no longer gives up when max collumn count is set to small number
and properly wraps items on new lines instead of putting everything
on the same line.
| -rw-r--r-- | src/Language/Haskell/Stylish/Util.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Language/Haskell/Stylish/Util.hs b/src/Language/Haskell/Stylish/Util.hs index 51b5df9..6621108 100644 --- a/src/Language/Haskell/Stylish/Util.hs +++ b/src/Language/Haskell/Stylish/Util.hs @@ -73,9 +73,8 @@ wrap maxWidth leading ind strs' = wrap' leading strs' ss : wrapRest maxWidth ind (str:strs) | otherwise = wrap' (ss ++ " " ++ str) strs - overflows ss str = (length ss + length str) >= maxWidth - && ind + length str <= maxWidth - + overflows ss str = length ss > maxWidth || + ((length ss + length str) >= maxWidth && ind + length str <= maxWidth) -------------------------------------------------------------------------------- |