diff options
| author | Mizunashi Mana <mizunashi_mana@mma.club.uec.ac.jp> | 2016-11-05 18:22:45 +0900 |
|---|---|---|
| committer | Mizunashi Mana <mizunashi_mana@mma.club.uec.ac.jp> | 2016-11-05 18:22:45 +0900 |
| commit | 08d634815c9929fa124033531099ee9de1c784e4 (patch) | |
| tree | b159341dc368c7533ecec268b7796c5cd3a47ccf /lib | |
| parent | 0de22ae533ce787ddc5fff809ec79f907eb0d4c5 (diff) | |
| download | stylish-haskell-08d634815c9929fa124033531099ee9de1c784e4.tar.gz | |
Add a guard for maximum error case
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Language/Haskell/Stylish/Align.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Language/Haskell/Stylish/Align.hs b/lib/Language/Haskell/Stylish/Align.hs index 3d4a428..8e6665f 100644 --- a/lib/Language/Haskell/Stylish/Align.hs +++ b/lib/Language/Haskell/Stylish/Align.hs @@ -59,6 +59,7 @@ align :: Int -- ^ Max columns -> [Alignable H.SrcSpan] -- ^ Alignables -> [Change String] -- ^ Changes performing the alignment. +align _ [] = [] align maxColumns alignment -- Do not make any change if we would go past the maximum number of columns. | longestLeft + longestRight > maxColumns = [] |