diff options
Diffstat (limited to 'src/Language/Haskell/Stylish/Step/Imports.hs')
-rw-r--r-- | src/Language/Haskell/Stylish/Step/Imports.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Language/Haskell/Stylish/Step/Imports.hs b/src/Language/Haskell/Stylish/Step/Imports.hs index b1e8843..f1fbf40 100644 --- a/src/Language/Haskell/Stylish/Step/Imports.hs +++ b/src/Language/Haskell/Stylish/Step/Imports.hs @@ -30,6 +30,7 @@ data Align = Align { importAlign :: ImportAlign , listAlign :: ListAlign , longListAlign :: LongListAlign + , listPadding :: Int } deriving (Eq, Show) @@ -132,9 +133,9 @@ prettyImport columns Align{..} padQualified padName longest imp = inlineWrapper = case listAlign of SameLine -> wrap columns inlineBase (inlineBaseLength + 1) - NewLine -> (inlineBase :) . wrapRest columns 4 + NewLine -> (inlineBase :) . wrapRest columns listPadding - multilineWrap = multilineBase : (wrapRest 0 4 + multilineWrap = multilineBase : (wrapRest 0 listPadding $ (withHead ("( " ++) $ withTail (", " ++) $ specs) ++ [")"]) |