Skip to content

Commit d745d72

Browse files
fizrukfizruk
committed
Apply stylish-haskell to sources
1 parent 6aeb3a0 commit d745d72

File tree

7 files changed

+73
-72
lines changed

7 files changed

+73
-72
lines changed

‎src/Servant/Swagger/Internal.hs

Lines changed: 30 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,13 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE DataKinds #-}
3-
{-# LANGUAGE FlexibleContexts #-}
4-
{-# LANGUAGE FlexibleInstances #-}
5-
{-# LANGUAGE OverloadedStrings #-}
6-
{-# LANGUAGE PolyKinds #-}
7-
{-# LANGUAGE RankNTypes #-}
8-
{-# LANGUAGE ScopedTypeVariables #-}
9-
{-# LANGUAGE TypeOperators #-}
10-
{-# LANGUAGE ConstraintKinds #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE ConstraintKinds #-}
3+
{-# LANGUAGE DataKinds #-}
4+
{-# LANGUAGE FlexibleContexts #-}
5+
{-# LANGUAGE FlexibleInstances #-}
6+
{-# LANGUAGE OverloadedStrings #-}
7+
{-# LANGUAGE PolyKinds #-}
8+
{-# LANGUAGE RankNTypes #-}
9+
{-# LANGUAGE ScopedTypeVariables #-}
10+
{-# LANGUAGE TypeOperators #-}
1111
#if __GLASGOW_HASKELL__ >= 710
1212
#define OVERLAPPABLE_ {-# OVERLAPPABLE #-}
1313
#else
@@ -16,25 +16,26 @@
1616
#endif
1717
module Servant.Swagger.Internal where
1818

19-
import Control.Lens
20-
import Data.Aeson
21-
import Data.Monoid
22-
import Data.Proxy
23-
import qualified Data.Swagger as Swagger
24-
import Data.Swagger hiding (Header)
25-
import Data.Swagger.Declare
26-
import Data.HashMap.Strict.InsOrd (InsOrdHashMap)
27-
import qualified Data.HashMap.Strict.InsOrd as InsOrdHashMap
28-
import Data.Text (Text)
29-
import qualified Data.Text as Text
30-
import GHC.TypeLits
31-
import Network.HTTP.Media (MediaType)
32-
import Servant.API
33-
import Servant.API.Description (FoldDescription, reflectDescription)
34-
import Servant.API.Modifiers (FoldRequired)
35-
import Data.Singletons.Bool
36-
37-
import Servant.Swagger.Internal.TypeLevel.API
19+
import Control.Lens
20+
import Data.Aeson
21+
import Data.HashMap.Strict.InsOrd (InsOrdHashMap)
22+
import qualified Data.HashMap.Strict.InsOrd as InsOrdHashMap
23+
import Data.Monoid
24+
import Data.Proxy
25+
import Data.Singletons.Bool
26+
import Data.Swagger hiding (Header)
27+
import qualified Data.Swagger as Swagger
28+
import Data.Swagger.Declare
29+
import Data.Text (Text)
30+
import qualified Data.Text as Text
31+
import GHC.TypeLits
32+
import Network.HTTP.Media (MediaType)
33+
import Servant.API
34+
import Servant.API.Description (FoldDescription,
35+
reflectDescription)
36+
import Servant.API.Modifiers (FoldRequired)
37+
38+
import Servant.Swagger.Internal.TypeLevel.API
3839

3940
-- | Generate a Swagger specification for a servant API.
4041
--

‎src/Servant/Swagger/Internal/TypeLevel.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,6 @@ module Servant.Swagger.Internal.TypeLevel (
44
module Servant.Swagger.Internal.TypeLevel.TMap,
55
) where
66

7-
import Servant.Swagger.Internal.TypeLevel.API
8-
import Servant.Swagger.Internal.TypeLevel.Every
9-
import Servant.Swagger.Internal.TypeLevel.TMap
7+
import Servant.Swagger.Internal.TypeLevel.API
8+
import Servant.Swagger.Internal.TypeLevel.Every
9+
import Servant.Swagger.Internal.TypeLevel.TMap

‎src/Servant/Swagger/Internal/TypeLevel/API.hs

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,15 @@
1-
{-# LANGUAGE ConstraintKinds #-}
2-
{-# LANGUAGE DataKinds #-}
3-
{-# LANGUAGE KindSignatures #-}
4-
{-# LANGUAGE PolyKinds #-}
5-
{-# LANGUAGE TypeFamilies #-}
6-
{-# LANGUAGE TypeOperators #-}
1+
{-# LANGUAGE ConstraintKinds #-}
2+
{-# LANGUAGE DataKinds #-}
3+
{-# LANGUAGE KindSignatures #-}
4+
{-# LANGUAGE PolyKinds #-}
5+
{-# LANGUAGE TypeFamilies #-}
6+
{-# LANGUAGE TypeOperators #-}
77
{-# LANGUAGE UndecidableInstances #-}
88
module Servant.Swagger.Internal.TypeLevel.API where
99

10-
import Data.Type.Bool (If)
11-
import Servant.API
12-
import GHC.Exts (Constraint)
10+
import Data.Type.Bool (If)
11+
import GHC.Exts (Constraint)
12+
import Servant.API
1313

1414
-- | Build a list of endpoints from an API.
1515
type family EndpointsList api where

‎src/Servant/Swagger/Internal/TypeLevel/Every.hs

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -1,27 +1,27 @@
1-
{-# LANGUAGE CPP #-}
2-
{-# LANGUAGE ConstraintKinds #-}
3-
{-# LANGUAGE DataKinds #-}
4-
{-# LANGUAGE GADTs #-}
5-
{-# LANGUAGE FlexibleContexts #-}
6-
{-# LANGUAGE FlexibleInstances #-}
7-
{-# LANGUAGE InstanceSigs #-}
8-
{-# LANGUAGE KindSignatures #-}
9-
{-# LANGUAGE MultiParamTypeClasses #-}
10-
{-# LANGUAGE PolyKinds #-}
11-
{-# LANGUAGE RankNTypes #-}
12-
{-# LANGUAGE ScopedTypeVariables #-}
13-
{-# LANGUAGE TypeFamilies #-}
14-
{-# LANGUAGE TypeOperators #-}
15-
{-# LANGUAGE UndecidableInstances #-}
1+
{-# LANGUAGE CPP #-}
2+
{-# LANGUAGE ConstraintKinds #-}
3+
{-# LANGUAGE DataKinds #-}
4+
{-# LANGUAGE FlexibleContexts #-}
5+
{-# LANGUAGE FlexibleInstances #-}
6+
{-# LANGUAGE GADTs #-}
7+
{-# LANGUAGE InstanceSigs #-}
8+
{-# LANGUAGE KindSignatures #-}
9+
{-# LANGUAGE MultiParamTypeClasses #-}
10+
{-# LANGUAGE PolyKinds #-}
11+
{-# LANGUAGE RankNTypes #-}
12+
{-# LANGUAGE ScopedTypeVariables #-}
13+
{-# LANGUAGE TypeFamilies #-}
14+
{-# LANGUAGE TypeOperators #-}
15+
{-# LANGUAGE UndecidableInstances #-}
1616
#if __GLASGOW_HASKELL__ >= 800
1717
{-# LANGUAGE UndecidableSuperClasses #-}
1818
#endif
1919
module Servant.Swagger.Internal.TypeLevel.Every where
2020

21-
import Data.Proxy
22-
import GHC.Exts (Constraint)
21+
import Data.Proxy
22+
import GHC.Exts (Constraint)
2323

24-
import Servant.Swagger.Internal.TypeLevel.TMap
24+
import Servant.Swagger.Internal.TypeLevel.TMap
2525

2626
-- $setup
2727
-- >>> :set -XDataKinds

‎src/Servant/Swagger/Internal/TypeLevel/TMap.hs

Lines changed: 11 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,17 @@
1-
{-# LANGUAGE ConstraintKinds #-}
2-
{-# LANGUAGE DataKinds #-}
3-
{-# LANGUAGE FlexibleInstances #-}
4-
{-# LANGUAGE KindSignatures #-}
1+
{-# LANGUAGE ConstraintKinds #-}
2+
{-# LANGUAGE DataKinds #-}
3+
{-# LANGUAGE FlexibleInstances #-}
4+
{-# LANGUAGE KindSignatures #-}
55
{-# LANGUAGE MultiParamTypeClasses #-}
6-
{-# LANGUAGE PolyKinds #-}
7-
{-# LANGUAGE RankNTypes #-}
8-
{-# LANGUAGE ScopedTypeVariables #-}
9-
{-# LANGUAGE TypeOperators #-}
10-
{-# LANGUAGE UndecidableInstances #-}
6+
{-# LANGUAGE PolyKinds #-}
7+
{-# LANGUAGE RankNTypes #-}
8+
{-# LANGUAGE ScopedTypeVariables #-}
9+
{-# LANGUAGE TypeOperators #-}
10+
{-# LANGUAGE UndecidableInstances #-}
1111
module Servant.Swagger.Internal.TypeLevel.TMap where
1212

13-
import Data.Proxy
14-
import GHC.Exts (Constraint)
13+
import Data.Proxy
14+
import GHC.Exts (Constraint)
1515

1616
-- $setup
1717
-- >>> :set -XDataKinds

‎src/Servant/Swagger/Test.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,4 +10,4 @@ module Servant.Swagger.Test (
1010
validateEveryToJSONWithPatternChecker,
1111
) where
1212

13-
import Servant.Swagger.Internal.Test
13+
import Servant.Swagger.Internal.Test

‎src/Servant/Swagger/TypeLevel.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -11,5 +11,5 @@ module Servant.Swagger.TypeLevel (
1111
BodyTypes,
1212
) where
1313

14-
import Servant.Swagger.Internal.TypeLevel
14+
import Servant.Swagger.Internal.TypeLevel
1515

0 commit comments

Comments
 (0)