stylish-haskell

Author: chris-martin

.stylish-haskell.yaml

@@ -0,0 +1,22 @@
+columns: 80
+newline: lf
+
+steps:
+
+  - simple_align:
+      cases: false
+      top_level_patterns: false
+      records: false
+
+  - imports:
+      align: none
+      list_align: after_alias
+      long_list_align: inline
+      empty_list_align: inherit
+      list_padding: 4
+      separate_lists: true
+
+  - tabs:
+      spaces: 4
+
+  - trailing_whitespace: {}

unfork-demo/Demo.hs

@@ -1,10 +1,10 @@
 module Demo where
 
-import Prelude (IO, String, putStr, show, (*>), (<>))
 import Control.Concurrent (threadDelay)
 import Control.Concurrent.Async (concurrently_)
 import Data.Foldable (for_)
 import Numeric.Natural (Natural)
+import Prelude (IO, String, putStr, show, (*>), (<>))
 
 putStrLnSlow :: String -> IO ()
 putStrLnSlow = r

unfork/Unfork.hs

@@ -151,13 +151,13 @@ module Unfork
     {- * Synchronous I/O  -} unforkSyncIO_, unforkSyncIO,
   ) where
 
-import Prelude (IO, Maybe (..), Eq ((==)), pure)
+import Prelude (Eq ((==)), IO, Maybe (..), pure)
 
 import Control.Applicative ((<|>))
+import Control.Concurrent.Async (concurrently)
 import Control.Exception.Safe (bracket)
 import Control.Monad (guard, join)
 import Control.Monad.STM (STM, atomically)
-import Control.Concurrent.Async (concurrently)
 import Data.Functor (($>), (<&>))
 
 import qualified Control.Concurrent.MVar as MVar