stylish-haskell and lint

``` find . -name '*.hs' | xargs stylish-haskell -i ```
eskimor · Jan 13, 2024 · 7d7c1d8 · 7d7c1d8
1 parent 7069895
commit 7d7c1d8
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 20 deletions.
diff --git a/src/Language/PureScript/Bridge/Printer.hs b/src/Language/PureScript/Bridge/Printer.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE BlockArguments    #-}
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE KindSignatures    #-}
-{-# LANGUAGE LambdaCase        #-}
 {-# LANGUAGE OverloadedLists   #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards   #-}

diff --git a/src/Language/PureScript/Bridge/SumType.hs b/src/Language/PureScript/Bridge/SumType.hs
@@ -1,16 +1,16 @@
-{-# LANGUAGE AllowAmbiguousTypes  #-}
-{-# LANGUAGE DataKinds            #-}
-{-# LANGUAGE FlexibleContexts     #-}
-{-# LANGUAGE FlexibleInstances    #-}
-{-# LANGUAGE KindSignatures       #-}
-{-# LANGUAGE OverloadedLists      #-}
-{-# LANGUAGE OverloadedStrings    #-}
-{-# LANGUAGE PatternSynonyms      #-}
-{-# LANGUAGE RecordWildCards      #-}
-{-# LANGUAGE ScopedTypeVariables  #-}
-{-# LANGUAGE TemplateHaskell      #-}
-{-# LANGUAGE TypeApplications     #-}
-{-# LANGUAGE TypeOperators        #-}
+{-# LANGUAGE AllowAmbiguousTypes #-}
+{-# LANGUAGE DataKinds           #-}
+{-# LANGUAGE FlexibleContexts    #-}
+{-# LANGUAGE FlexibleInstances   #-}
+{-# LANGUAGE KindSignatures      #-}
+{-# LANGUAGE OverloadedLists     #-}
+{-# LANGUAGE OverloadedStrings   #-}
+{-# LANGUAGE PatternSynonyms     #-}
+{-# LANGUAGE RecordWildCards     #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TemplateHaskell     #-}
+{-# LANGUAGE TypeApplications    #-}
+{-# LANGUAGE TypeOperators       #-}
 
 module Language.PureScript.Bridge.SumType
     ( SumType (..)

diff --git a/test/RoundTripArgonautAesonGeneric/Spec.hs b/test/RoundTripArgonautAesonGeneric/Spec.hs
@@ -18,8 +18,8 @@ import           GHC.Generics (Generic)
 import           Language.PureScript.Bridge (BridgePart, Language (..), SumType,
                                              argonautAesonGeneric, buildBridge,
                                              defaultBridge, equal, functor,
-                                             genericShow, jsonHelpers, mkSumType,
-                                             order, writePSTypes,
+                                             genericShow, jsonHelpers,
+                                             mkSumType, order, writePSTypes,
                                              writePSTypesWith)
 import           Language.PureScript.Bridge.TypeParameters (A)
 import           RoundTripArgonautAesonGeneric.Types (MyUnit, TestData,

diff --git a/test/RoundTripArgonautAesonGeneric/Types.hs b/test/RoundTripArgonautAesonGeneric/Types.hs
@@ -32,8 +32,7 @@ import           Test.QuickCheck (Arbitrary (..), chooseEnum, oneof, resize,
                                   sized)
 
 -- TODO resolve Argonaut-Aeson incompatiblity
-data TestData
-  = Maybe (Maybe TestSum)
+data TestData = Maybe (Maybe TestSum)
   -- | Either (Either (Maybe Int) (Maybe Bool))
   deriving (Eq, Generic, Ord, Show)
 

diff --git a/test/RoundTripJsonHelpers/Spec.hs b/test/RoundTripJsonHelpers/Spec.hs
@@ -18,8 +18,8 @@ import           GHC.Generics (Generic)
 import           Language.PureScript.Bridge (BridgePart, Language (..), SumType,
                                              argonautAesonGeneric, buildBridge,
                                              defaultBridge, equal, functor,
-                                             genericShow, jsonHelpers, mkSumType,
-                                             order, writePSTypes,
+                                             genericShow, jsonHelpers,
+                                             mkSumType, order, writePSTypes,
                                              writePSTypesWith)
 import           Language.PureScript.Bridge.TypeParameters (A)
 import           RoundTripJsonHelpers.Types (MyUnit, TestData, TestEnum,