Ran stylish-haskell

dhall/src/Dhall/Eval.hs

@@ -57,7 +57,7 @@ import Data.Foldable      (foldr', toList)
 import Data.List.NonEmpty (NonEmpty (..))
 import Data.Sequence      (Seq, ViewL (..), ViewR (..))
 import Data.Text          (Text)
-import Data.Time          (Day, TimeOfDay(..), TimeZone)
+import Data.Time          (Day, TimeOfDay (..), TimeZone)
 import Data.Void          (Void)
 import Dhall.Map          (Map)
 import Dhall.Set          (Set)

dhall/src/Dhall/Import/Headers.hs

@@ -10,12 +10,7 @@ module Dhall.Import.Headers
     , toOriginHeaders
     ) where
 
-import Control.Applicative
-    ( Alternative (..)
-#if !MIN_VERSION_base(4,18,0)
-    , liftA2
-#endif
-    )
+import Control.Applicative (Alternative (..), liftA2)
 import Control.Exception   (SomeException)
 import Control.Monad.Catch (handle, throwM)
 import Data.Text           (Text)

dhall/src/Dhall/Lint.hs

@@ -20,7 +20,7 @@ module Dhall.Lint
 
 import Control.Applicative ((<|>))
 
-import Dhall.Optics        (anyOf)
+import Dhall.Optics (anyOf)
 import Dhall.Syntax
     ( Binding (..)
     , Chunks (..)

dhall/src/Dhall/Main.hs

@@ -37,7 +37,7 @@ import Dhall.Import
     , SemanticCacheMode (..)
     , _semanticCacheMode
     )
-import Dhall.Package       (PackagingMode(..), writePackage)
+import Dhall.Package       (PackagingMode (..), writePackage)
 import Dhall.Parser        (Src)
 import Dhall.Pretty
     ( Ann

dhall/src/Dhall/Map.hs

@@ -78,8 +78,8 @@ import Instances.TH.Lift          ()
 import Language.Haskell.TH.Syntax (Lift)
 import Prelude                    hiding (filter, lookup)
 
-import qualified Data.Foldable.WithIndex as Foldable.WithIndex
-import qualified Data.Functor.WithIndex as Functor.WithIndex
+import qualified Data.Foldable.WithIndex    as Foldable.WithIndex
+import qualified Data.Functor.WithIndex     as Functor.WithIndex
 import qualified Data.List
 import qualified Data.Map.Strict
 import qualified Data.Set

dhall/src/Dhall/Marshal/Decode.hs

@@ -1,6 +1,6 @@
 {-# LANGUAGE ApplicativeDo              #-}
-{-# LANGUAGE ConstraintKinds            #-}
 {-# LANGUAGE CPP                        #-}
+{-# LANGUAGE ConstraintKinds            #-}
 {-# LANGUAGE DefaultSignatures          #-}
 {-# LANGUAGE DeriveFunctor              #-}
 {-# LANGUAGE DerivingStrategies         #-}
@@ -136,12 +136,7 @@ module Dhall.Marshal.Decode
     ) where
 
 
-import Control.Applicative
-    ( empty
-#if !MIN_VERSION_base(4,18,0)
-    , liftA2
-#endif
-    )
+import Control.Applicative              (empty, liftA2)
 import Control.Exception                (Exception)
 import Control.Monad                    (guard)
 import Control.Monad.Trans.State.Strict
@@ -180,9 +175,9 @@ import qualified Data.ByteString.Short
 import qualified Data.Foldable
 import qualified Data.Functor.Compose
 import qualified Data.Functor.Product
-import qualified Data.HashMap.Strict  as HashMap
+import qualified Data.HashMap.Strict   as HashMap
 import qualified Data.HashSet
-import qualified Data.List            as List
+import qualified Data.List             as List
 import qualified Data.List.NonEmpty
 import qualified Data.Map
 import qualified Data.Maybe
@@ -192,9 +187,9 @@ import qualified Data.Set
 import qualified Data.Text
 import qualified Data.Text.Lazy
 import qualified Data.Text.Short
-import qualified Data.Time            as Time
+import qualified Data.Time             as Time
 import qualified Data.Vector
-import qualified Dhall.Core           as Core
+import qualified Dhall.Core            as Core
 import qualified Dhall.Map
 import qualified Dhall.Util
 

dhall/src/Dhall/Marshal/Encode.hs

@@ -78,7 +78,7 @@ import qualified Data.ByteString
 import qualified Data.ByteString.Lazy
 import qualified Data.ByteString.Short
 import qualified Data.Functor.Product
-import qualified Data.HashMap.Strict  as HashMap
+import qualified Data.HashMap.Strict   as HashMap
 import qualified Data.HashSet
 import qualified Data.Map
 import qualified Data.Scientific
@@ -87,10 +87,10 @@ import qualified Data.Set
 import qualified Data.Text
 import qualified Data.Text.Lazy
 import qualified Data.Text.Short
-import qualified Data.Time            as Time
+import qualified Data.Time             as Time
 import qualified Data.Vector
 import qualified Data.Void
-import qualified Dhall.Core           as Core
+import qualified Dhall.Core            as Core
 import qualified Dhall.Map
 
 import Dhall.Marshal.Internal

dhall/src/Dhall/Optics.hs

@@ -22,8 +22,8 @@ module Dhall.Optics
 
 import Control.Applicative        (Const (..), WrappedMonad (..))
 import Data.Coerce                (coerce)
-import Data.Monoid                (Any (..))
 import Data.Functor.Contravariant (Contravariant (contramap))
+import Data.Monoid                (Any (..))
 import Data.Profunctor            (Profunctor (dimap))
 import Lens.Micro                 (ASetter, LensLike, Traversal)
 import Lens.Micro.Internal        (foldMapOf, (#.))

dhall/src/Dhall/Parser/Combinators.hs

@@ -23,12 +23,7 @@ module Dhall.Parser.Combinators
     ) where
 
 
-import Control.Applicative
-    ( Alternative (..)
-#if !MIN_VERSION_base(4,18,0)
-    , liftA2
-#endif
-    )
+import Control.Applicative     (Alternative (..), liftA2)
 import Control.Exception       (Exception)
 import Control.Monad           (MonadPlus (..))
 import Data.String             (IsString (..))

dhall/src/Dhall/Parser/Expression.hs

@@ -8,13 +8,7 @@
 -- | Parsing Dhall expressions.
 module Dhall.Parser.Expression where
 
-import Control.Applicative
-    ( Alternative (..)
-#if !MIN_VERSION_base(4,18,0)
-    , liftA2
-#endif
-    , optional
-    )
+import Control.Applicative     (Alternative (..), liftA2, optional)
 import Data.Foldable           (foldl')
 import Data.List.NonEmpty      (NonEmpty (..))
 import Data.Text               (Text)

dhall/src/Dhall/Syntax/Expr.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveGeneric            #-}
 {-# LANGUAGE StandaloneKindSignatures #-}
 
 module Dhall.Syntax.Expr

dhall/src/Dhall/Syntax/Instances/Lift.hs

@@ -19,7 +19,7 @@ import Language.Haskell.TH.Syntax   (Lift)
 #if !MIN_VERSION_template_haskell(2,21,0)
 import qualified Data.Fixed as Fixed
 #endif
-import qualified Data.Time  as Time
+import qualified Data.Time as Time
 
 deriving instance Lift Time.Day
 deriving instance Lift Time.TimeOfDay

dhall/src/Dhall/TypeCheck.hs

@@ -48,7 +48,7 @@ import Dhall.Eval
     , (~>)
     )
 import Dhall.Optics                      (anyOf)
-import Dhall.Pretty                      (Ann, UnescapedLabel(..))
+import Dhall.Pretty                      (Ann, UnescapedLabel (..))
 import Dhall.Src                         (Src)
 import Lens.Micro                        (over)
 import Prettyprinter                     (Doc, Pretty (..), vsep)

dhall/tests/Dhall/Test/DirectoryTree.hs

@@ -1,23 +1,23 @@
-{-# LANGUAGE CPP #-}
-{-# LANGUAGE OverloadedLists #-}
+{-# LANGUAGE CPP               #-}
+{-# LANGUAGE OverloadedLists   #-}
 {-# LANGUAGE OverloadedStrings #-}
 
 module Dhall.Test.DirectoryTree (tests) where
 
 import Control.Monad
-import Data.Either (partitionEithers)
+import Data.Either            (partitionEithers)
 import Data.Either.Validation
 import Dhall.DirectoryTree
-import Lens.Micro (set)
-import System.FilePath ((</>))
+import Lens.Micro             (set)
+import System.FilePath        ((</>))
 import Test.Tasty
 import Test.Tasty.HUnit
 
 import qualified Data.Text.IO
 import qualified Dhall
 import qualified Dhall.Core
-import qualified System.Directory as Directory
-import qualified System.FilePath as FilePath
+import qualified System.Directory         as Directory
+import qualified System.FilePath          as FilePath
 import qualified System.PosixCompat.Files as Files
 
 tests :: TestTree

dhall/tests/Dhall/Test/Regression.hs

@@ -7,7 +7,7 @@ module Dhall.Test.Regression where
 
 import Data.Either.Validation (Validation (..))
 import Data.Void              (Void)
-import Dhall.Core             (Expr(..), ReifiedNormalizer(..))
+import Dhall.Core             (Expr (..), ReifiedNormalizer (..))
 import Dhall.Import           (Imported, MissingImports (..))
 import Dhall.Parser           (SourcedException (..), Src)
 import Dhall.TypeCheck        (TypeError)

dhall/tests/Dhall/Test/Util.hs

@@ -28,13 +28,7 @@ module Dhall.Test.Util
     , managedTestEnvironment
     ) where
 
-import Control.Applicative
-    ( Alternative
-    , (<|>)
-#if !MIN_VERSION_base(4,18,0)
-    , liftA2
-#endif
-    )
+import Control.Applicative              (Alternative, liftA2, (<|>))
 import Control.Exception                (tryJust)
 import Control.Monad                    (guard)
 import Control.Monad.Trans.State.Strict (StateT)
@@ -77,9 +71,9 @@ import qualified Turtle
 #if defined(WITH_HTTP) && defined(NETWORK_TESTS)
 import qualified Data.Foldable
 #else
-import Control.Monad.IO.Class   (MonadIO (..))
-import Dhall.Core               (Directory (..), File (..), URL (..))
-import Lens.Micro.Mtl           (zoom)
+import Control.Monad.IO.Class (MonadIO (..))
+import Dhall.Core             (Directory (..), File (..), URL (..))
+import Lens.Micro.Mtl         (zoom)
 
 import qualified Data.Foldable
 import qualified Data.Text.Encoding