Skip to content
Browse files

Align imports after the start-parenthesis

See #7
  • Loading branch information...
1 parent dafe122 commit dfb873f74831ff12a3aab8961d175e35214e15f1 @jaspervdj committed Jul 31, 2012
Showing with 3 additions and 3 deletions.
  1. +1 −1 src/StylishHaskell/Step/Imports.hs
  2. +2 −2 tests/StylishHaskell/Step/Imports/Tests.hs
View
2 src/StylishHaskell/Step/Imports.hs
@@ -94,7 +94,7 @@ sortImportSpecs imp = imp {H.importSpecs = fmap sort $ H.importSpecs imp}
prettyImport :: Int -> Bool -> Bool -> Int -> H.ImportDecl l -> String
prettyImport columns padQualified padName longest imp =
intercalate "\n" $
- wrap columns base (length base + 1) $
+ wrap columns base (length base + 2) $
(if hiding then ("hiding" :) else id) $
withInit (++ ",") $
withHead ("(" ++) $
View
4 tests/StylishHaskell/Step/Imports/Tests.hs
@@ -105,6 +105,6 @@ case04 = expected @=? testStep (step 80 Global) input'
expected = unlines
[ "import Data.Aeson.Types (FromJSON(..), ToJSON(..), Value(..), object,"
- , " parseEither, typeMismatch, (.!=), (.:), (.:?),"
- , " (.=))"
+ , " parseEither, typeMismatch, (.!=), (.:),"
+ , " (.:?), (.=))"
]

0 comments on commit dfb873f

Please sign in to comment.
Something went wrong with that request. Please try again.