diff options
Diffstat (limited to 'src')
-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) -------------------------------------------------------------------------------- |