Skip to content

Commit 1df9954

Browse files
mmhatmmhat
committed
Ran stylish-haskell
1 parent a902587 commit 1df9954

File tree

16 files changed

+33
-60
lines changed

16 files changed

+33
-60
lines changed

‎dhall/src/Dhall/Eval.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -57,7 +57,7 @@ import Data.Foldable (foldr', toList)
5757
import Data.List.NonEmpty (NonEmpty (..))
5858
import Data.Sequence (Seq, ViewL (..), ViewR (..))
5959
import Data.Text (Text)
60-
import Data.Time (Day, TimeOfDay(..), TimeZone)
60+
import Data.Time (Day, TimeOfDay (..), TimeZone)
6161
import Data.Void (Void)
6262
import Dhall.Map (Map)
6363
import Dhall.Set (Set)

‎dhall/src/Dhall/Import/Headers.hs

+1-6
Original file line numberDiff line numberDiff line change
@@ -10,12 +10,7 @@ module Dhall.Import.Headers
1010
, toOriginHeaders
1111
) where
1212

13-
import Control.Applicative
14-
( Alternative (..)
15-
#if !MIN_VERSION_base(4,18,0)
16-
, liftA2
17-
#endif
18-
)
13+
import Control.Applicative (Alternative (..), liftA2)
1914
import Control.Exception (SomeException)
2015
import Control.Monad.Catch (handle, throwM)
2116
import Data.Text (Text)

‎dhall/src/Dhall/Lint.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ module Dhall.Lint
2020

2121
import Control.Applicative ((<|>))
2222

23-
import Dhall.Optics (anyOf)
23+
import Dhall.Optics (anyOf)
2424
import Dhall.Syntax
2525
( Binding (..)
2626
, Chunks (..)

‎dhall/src/Dhall/Main.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,7 @@ import Dhall.Import
3737
, SemanticCacheMode (..)
3838
, _semanticCacheMode
3939
)
40-
import Dhall.Package (PackagingMode(..), writePackage)
40+
import Dhall.Package (PackagingMode (..), writePackage)
4141
import Dhall.Parser (Src)
4242
import Dhall.Pretty
4343
( Ann

‎dhall/src/Dhall/Map.hs

+2-2
Original file line numberDiff line numberDiff line change
@@ -78,8 +78,8 @@ import Instances.TH.Lift ()
7878
import Language.Haskell.TH.Syntax (Lift)
7979
import Prelude hiding (filter, lookup)
8080

81-
import qualified Data.Foldable.WithIndex as Foldable.WithIndex
82-
import qualified Data.Functor.WithIndex as Functor.WithIndex
81+
import qualified Data.Foldable.WithIndex as Foldable.WithIndex
82+
import qualified Data.Functor.WithIndex as Functor.WithIndex
8383
import qualified Data.List
8484
import qualified Data.Map.Strict
8585
import qualified Data.Set

‎dhall/src/Dhall/Marshal/Decode.hs

+6-11
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
{-# LANGUAGE ApplicativeDo #-}
2-
{-# LANGUAGE ConstraintKinds #-}
32
{-# LANGUAGE CPP #-}
3+
{-# LANGUAGE ConstraintKinds #-}
44
{-# LANGUAGE DefaultSignatures #-}
55
{-# LANGUAGE DeriveFunctor #-}
66
{-# LANGUAGE DerivingStrategies #-}
@@ -136,12 +136,7 @@ module Dhall.Marshal.Decode
136136
) where
137137

138138

139-
import Control.Applicative
140-
( empty
141-
#if !MIN_VERSION_base(4,18,0)
142-
, liftA2
143-
#endif
144-
)
139+
import Control.Applicative (empty, liftA2)
145140
import Control.Exception (Exception)
146141
import Control.Monad (guard)
147142
import Control.Monad.Trans.State.Strict
@@ -180,9 +175,9 @@ import qualified Data.ByteString.Short
180175
import qualified Data.Foldable
181176
import qualified Data.Functor.Compose
182177
import qualified Data.Functor.Product
183-
import qualified Data.HashMap.Strict as HashMap
178+
import qualified Data.HashMap.Strict as HashMap
184179
import qualified Data.HashSet
185-
import qualified Data.List as List
180+
import qualified Data.List as List
186181
import qualified Data.List.NonEmpty
187182
import qualified Data.Map
188183
import qualified Data.Maybe
@@ -192,9 +187,9 @@ import qualified Data.Set
192187
import qualified Data.Text
193188
import qualified Data.Text.Lazy
194189
import qualified Data.Text.Short
195-
import qualified Data.Time as Time
190+
import qualified Data.Time as Time
196191
import qualified Data.Vector
197-
import qualified Dhall.Core as Core
192+
import qualified Dhall.Core as Core
198193
import qualified Dhall.Map
199194
import qualified Dhall.Util
200195

‎dhall/src/Dhall/Marshal/Encode.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -78,7 +78,7 @@ import qualified Data.ByteString
7878
import qualified Data.ByteString.Lazy
7979
import qualified Data.ByteString.Short
8080
import qualified Data.Functor.Product
81-
import qualified Data.HashMap.Strict as HashMap
81+
import qualified Data.HashMap.Strict as HashMap
8282
import qualified Data.HashSet
8383
import qualified Data.Map
8484
import qualified Data.Scientific
@@ -87,10 +87,10 @@ import qualified Data.Set
8787
import qualified Data.Text
8888
import qualified Data.Text.Lazy
8989
import qualified Data.Text.Short
90-
import qualified Data.Time as Time
90+
import qualified Data.Time as Time
9191
import qualified Data.Vector
9292
import qualified Data.Void
93-
import qualified Dhall.Core as Core
93+
import qualified Dhall.Core as Core
9494
import qualified Dhall.Map
9595

9696
import Dhall.Marshal.Internal

‎dhall/src/Dhall/Optics.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -22,8 +22,8 @@ module Dhall.Optics
2222

2323
import Control.Applicative (Const (..), WrappedMonad (..))
2424
import Data.Coerce (coerce)
25-
import Data.Monoid (Any (..))
2625
import Data.Functor.Contravariant (Contravariant (contramap))
26+
import Data.Monoid (Any (..))
2727
import Data.Profunctor (Profunctor (dimap))
2828
import Lens.Micro (ASetter, LensLike, Traversal)
2929
import Lens.Micro.Internal (foldMapOf, (#.))

‎dhall/src/Dhall/Parser/Combinators.hs

+1-6
Original file line numberDiff line numberDiff line change
@@ -23,12 +23,7 @@ module Dhall.Parser.Combinators
2323
) where
2424

2525

26-
import Control.Applicative
27-
( Alternative (..)
28-
#if !MIN_VERSION_base(4,18,0)
29-
, liftA2
30-
#endif
31-
)
26+
import Control.Applicative (Alternative (..), liftA2)
3227
import Control.Exception (Exception)
3328
import Control.Monad (MonadPlus (..))
3429
import Data.String (IsString (..))

‎dhall/src/Dhall/Parser/Expression.hs

+1-7
Original file line numberDiff line numberDiff line change
@@ -8,13 +8,7 @@
88
-- | Parsing Dhall expressions.
99
module Dhall.Parser.Expression where
1010

11-
import Control.Applicative
12-
( Alternative (..)
13-
#if !MIN_VERSION_base(4,18,0)
14-
, liftA2
15-
#endif
16-
, optional
17-
)
11+
import Control.Applicative (Alternative (..), liftA2, optional)
1812
import Data.Foldable (foldl')
1913
import Data.List.NonEmpty (NonEmpty (..))
2014
import Data.Text (Text)

‎dhall/src/Dhall/Syntax/Expr.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,4 @@
1-
{-# LANGUAGE DeriveGeneric #-}
1+
{-# LANGUAGE DeriveGeneric #-}
22
{-# LANGUAGE StandaloneKindSignatures #-}
33

44
module Dhall.Syntax.Expr

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

+1-1
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,7 @@ import Language.Haskell.TH.Syntax (Lift)
1919
#if !MIN_VERSION_template_haskell(2,21,0)
2020
import qualified Data.Fixed as Fixed
2121
#endif
22-
import qualified Data.Time as Time
22+
import qualified Data.Time as Time
2323

2424
deriving instance Lift Time.Day
2525
deriving instance Lift Time.TimeOfDay

‎dhall/src/Dhall/TypeCheck.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ import Dhall.Eval
4848
, (~>)
4949
)
5050
import Dhall.Optics (anyOf)
51-
import Dhall.Pretty (Ann, UnescapedLabel(..))
51+
import Dhall.Pretty (Ann, UnescapedLabel (..))
5252
import Dhall.Src (Src)
5353
import Lens.Micro (over)
5454
import Prettyprinter (Doc, Pretty (..), vsep)

‎dhall/tests/Dhall/Test/DirectoryTree.hs

+7-7
Original file line numberDiff line numberDiff line change
@@ -1,23 +1,23 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE OverloadedLists #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE OverloadedLists #-}
33
{-# LANGUAGE OverloadedStrings #-}
44

55
module Dhall.Test.DirectoryTree (tests) where
66

77
import Control.Monad
8-
import Data.Either (partitionEithers)
8+
import Data.Either (partitionEithers)
99
import Data.Either.Validation
1010
import Dhall.DirectoryTree
11-
import Lens.Micro (set)
12-
import System.FilePath ((</>))
11+
import Lens.Micro (set)
12+
import System.FilePath ((</>))
1313
import Test.Tasty
1414
import Test.Tasty.HUnit
1515

1616
import qualified Data.Text.IO
1717
import qualified Dhall
1818
import qualified Dhall.Core
19-
import qualified System.Directory as Directory
20-
import qualified System.FilePath as FilePath
19+
import qualified System.Directory as Directory
20+
import qualified System.FilePath as FilePath
2121
import qualified System.PosixCompat.Files as Files
2222

2323
tests :: TestTree

‎dhall/tests/Dhall/Test/Regression.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -7,7 +7,7 @@ module Dhall.Test.Regression where
77

88
import Data.Either.Validation (Validation (..))
99
import Data.Void (Void)
10-
import Dhall.Core (Expr(..), ReifiedNormalizer(..))
10+
import Dhall.Core (Expr (..), ReifiedNormalizer (..))
1111
import Dhall.Import (Imported, MissingImports (..))
1212
import Dhall.Parser (SourcedException (..), Src)
1313
import Dhall.TypeCheck (TypeError)

‎dhall/tests/Dhall/Test/Util.hs

+4-10
Original file line numberDiff line numberDiff line change
@@ -28,13 +28,7 @@ module Dhall.Test.Util
2828
, managedTestEnvironment
2929
) where
3030

31-
import Control.Applicative
32-
( Alternative
33-
, (<|>)
34-
#if !MIN_VERSION_base(4,18,0)
35-
, liftA2
36-
#endif
37-
)
31+
import Control.Applicative (Alternative, liftA2, (<|>))
3832
import Control.Exception (tryJust)
3933
import Control.Monad (guard)
4034
import Control.Monad.Trans.State.Strict (StateT)
@@ -77,9 +71,9 @@ import qualified Turtle
7771
#if defined(WITH_HTTP) && defined(NETWORK_TESTS)
7872
import qualified Data.Foldable
7973
#else
80-
import Control.Monad.IO.Class (MonadIO (..))
81-
import Dhall.Core (Directory (..), File (..), URL (..))
82-
import Lens.Micro.Mtl (zoom)
74+
import Control.Monad.IO.Class (MonadIO (..))
75+
import Dhall.Core (Directory (..), File (..), URL (..))
76+
import Lens.Micro.Mtl (zoom)
8377

8478
import qualified Data.Foldable
8579
import qualified Data.Text.Encoding

0 commit comments

Comments
 (0)