diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2016-11-16 17:40:59 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2016-11-16 17:40:59 +0100 |
| commit | a3fd55c538b35e1271f81dba3b022f81e3a80952 (patch) | |
| tree | b159341dc368c7533ecec268b7796c5cd3a47ccf | |
| parent | 0de22ae533ce787ddc5fff809ec79f907eb0d4c5 (diff) | |
| parent | 08d634815c9929fa124033531099ee9de1c784e4 (diff) | |
| download | stylish-haskell-a3fd55c538b35e1271f81dba3b022f81e3a80952.tar.gz | |
Merge pull request #137 from mizunashi-mana/fix-issue-136
Add a guard for maximum error case
| -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 = [] |