diff options
author | Jasper Van der Jeugt <m@jaspervdj.be> | 2020-10-07 21:53:36 +0200 |
---|---|---|
committer | GitHub <noreply@github.com> | 2020-10-07 21:53:36 +0200 |
commit | 0e2ebd1722871dce2207b44266a6e4420c13a588 (patch) | |
tree | 9116d633bb048c90dbaac593e87ccc9f8eaa4938 /lib/Language/Haskell/Stylish/Step/ModuleHeader.hs | |
parent | 1bc2b2c5c3377ed7fe55d53175580eccebb631aa (diff) | |
download | stylish-haskell-0e2ebd1722871dce2207b44266a6e4420c13a588.tar.gz |
Fix some issues with record field padding
Diffstat (limited to 'lib/Language/Haskell/Stylish/Step/ModuleHeader.hs')
-rw-r--r-- | lib/Language/Haskell/Stylish/Step/ModuleHeader.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs b/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs index 728ce4a..58752fe 100644 --- a/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs +++ b/lib/Language/Haskell/Stylish/Step/ModuleHeader.hs @@ -182,9 +182,7 @@ printExportList conf (L srcLoc exports) = do -- > xxxxyyfoo -- > xxxx) where doIndent = spaces (indent conf) - doHang = do - len <- length <$> getCurrentLine - spaces $ indent conf + 2 - len + doHang = pad (indent conf + 2) doSort = if sort conf then NonEmpty.sortBy compareLIE else id |