Separate lists option for imports

2 files changed, 8 insertions, 2 deletions

diff --git a/src/Language/Haskell/Stylish/Config.hs b/src/Language/Haskell/Stylish/Config.hs
index c176eb6..b8ae588 100644
--- a/src/Language/Haskell/Stylish/Config.hs
+++ b/src/Language/Haskell/Stylish/Config.hs
@@ -169,8 +169,9 @@ parseImports config o = Imports.step
         <*> (o A..:? "list_align" >>= parseEnum listAligns Imports.AfterAlias)
         <*> (o A..:? "long_list_align"
             >>= parseEnum longListAligns Imports.Inline)
-        <*> (maybe 4 (max 1) <$> o A..:? "list_padding"))
+        <*> (maybe 4 (max 1) <$> o A..:? "list_padding")
             -- ^ Padding have to be at least 1. Default is 4.
+        <*> o A..:? "separate_lists" A..!= True)
   where
     aligns =
         [ ("global", Imports.Global)
diff --git a/src/Language/Haskell/Stylish/Step/Imports.hs b/src/Language/Haskell/Stylish/Step/Imports.hs
index f47d594..2dd6a2a 100644
--- a/src/Language/Haskell/Stylish/Step/Imports.hs
+++ b/src/Language/Haskell/Stylish/Step/Imports.hs
@@ -31,6 +31,7 @@ data Align = Align
     , listAlign     :: ListAlign
     , longListAlign :: LongListAlign
     , listPadding   :: Int
+    , separateLists :: Bool
     }
     deriving (Eq, Show)
 
@@ -203,7 +204,11 @@ prettyImport columns Align{..} padQualified padName longest imp =
     mapSpecs f = case importSpecs of
         Nothing -> []     -- Import everything
         Just [] -> ["()"] -- Instance only imports
-        Just is -> f $ map prettyImportSpec is
+        Just is -> f $ map format is
+      where
+        format
+          | separateLists = prettyImportSpec
+          | otherwise = H.prettyPrint
 
 
 --------------------------------------------------------------------------------