chore: increase columns length in .stylish-haskell.yaml

This gives the import statements more space, essentially, it collectively
removes 90+ unneeded lines in the imports statements.

Signed-off-by: Taimoor Zaeem <taimoorzaeem@gmail.com>
This commit is contained in:
Taimoor Zaeem
2026-07-19 20:56:12 +05:00
parent 8faf9c0519
commit 080abcb695
37 changed files with 137 additions and 233 deletions
+1 -2
View File
@@ -23,8 +23,7 @@ import qualified Jose.Jws as JWT
import qualified Jose.Jwt as JWT
import Network.HTTP.Types
import qualified PostgREST.AppState as AppState
import PostgREST.Config (AppConfig (..),
LogLevel (..),
import PostgREST.Config (AppConfig (..), LogLevel (..),
OpenAPIMode (..),
Verbosity (..),
defaultRoleJSPathKey,
@@ -12,8 +12,7 @@ import Network.Wai (Application)
import ObsHelper
import qualified PostgREST.AppState as AppState
import PostgREST.Config (AppConfig (configDbSchemas))
import PostgREST.Metrics (ConnStats (..),
MetricsState (..),
import PostgREST.Metrics (ConnStats (..), MetricsState (..),
connectionCounts)
import PostgREST.Observation
import Prometheus (getCounter, getVectorWith)
+1 -2
View File
@@ -9,8 +9,7 @@ import Data.Function (id)
import Test.Hspec
import PostgREST.App (postgrest)
import PostgREST.Config (AppConfig (..),
toConnectionSettings)
import PostgREST.Config (AppConfig (..), toConnectionSettings)
import PostgREST.Config.Database (queryPgVersion)
import PostgREST.SchemaCache (querySchemaCache)
import Protolude hiding (toList, toS)
+4 -7
View File
@@ -24,12 +24,9 @@ import Network.Wai.Test (SResponse (simpleBody, simpleHeaders, simpleStatus
import System.IO.Unsafe (unsafePerformIO)
import Text.Regex.TDFA ((=~))
import PostgREST.Config (AppConfig (..),
LogLevel (..),
OpenAPIMode (..),
Verbosity (..),
defaultRoleJSPathKey,
parseSecret)
import PostgREST.Config (AppConfig (..), LogLevel (..),
OpenAPIMode (..), Verbosity (..),
defaultRoleJSPathKey, parseSecret)
import PostgREST.SchemaCache.Identifiers (QualifiedIdentifier (..))
import Data.Aeson.Lens
@@ -102,7 +99,7 @@ parseServerTimingHeader (h:hs) =
[name, durationText] ->
case BS.split '=' durationText of
[_, duration] -> (name,) <$> readMaybe (BS.unpack duration)
_ -> Nothing
_ -> Nothing
_ -> Nothing
validateOpenApiResponse :: [Header] -> WaiSession () ()