polysemy-http 0.4.0.0 → 0.4.0.1
raw patch · 9 files changed
+179/−205 lines, 9 filesdep +polysemy-logdep ~polysemy-pluginPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: polysemy-log
Dependency ranges changed: polysemy-plugin
API changes (from Hackage documentation)
- Polysemy.Http: data Log :: Effect
- Polysemy.Http: interpretLogNull :: InterpreterFor Log r
- Polysemy.Http: interpretLogStdout :: Member (Embed IO) r => Sem (Log : r) a -> Sem r a
- Polysemy.Http.Data.Log: [Debug] :: HasCallStack => Text -> Log m ()
- Polysemy.Http.Data.Log: [ErrorPlus] :: (HasCallStack, Traversable t) => Text -> t Text -> Log m ()
- Polysemy.Http.Data.Log: [Error] :: HasCallStack => Text -> Log m ()
- Polysemy.Http.Data.Log: [Info] :: HasCallStack => Text -> Log m ()
- Polysemy.Http.Data.Log: [Warn] :: HasCallStack => Text -> Log m ()
- Polysemy.Http.Data.Log: data Log :: Effect
- Polysemy.Http.Data.Log: debug :: HasCallStack => Member Log r => Text -> Sem r ()
- Polysemy.Http.Data.Log: error :: HasCallStack => Member Log r => Text -> Sem r ()
- Polysemy.Http.Data.Log: errorPlus :: HasCallStack => Traversable t => Member Log r => Text -> t Text -> Sem r ()
- Polysemy.Http.Data.Log: info :: HasCallStack => Member Log r => Text -> Sem r ()
- Polysemy.Http.Data.Log: warn :: HasCallStack => Member Log r => Text -> Sem r ()
- Polysemy.Http.Log: Message :: !Severity -> !CallStack -> !Text -> Message
- Polysemy.Http.Log: [msgSeverity] :: Message -> !Severity
- Polysemy.Http.Log: [msgStack] :: Message -> !CallStack
- Polysemy.Http.Log: [msgText] :: Message -> !Text
- Polysemy.Http.Log: data Message
- Polysemy.Http.Log: fmtRichMessageDefault :: Message -> IO Text
- Polysemy.Http.Log: interpretLogNull :: InterpreterFor Log r
- Polysemy.Http.Log: interpretLogStdout :: Member (Embed IO) r => Sem (Log : r) a -> Sem r a
- Polysemy.Http.Log: log :: HasCallStack => Member (Log Message) r => Severity -> Text -> Sem r ()
- Polysemy.Http.Log: logByteStringStdout :: LogAction IO ByteString
- Polysemy.Http.Log: richMessageAction :: LogAction IO Message
- Polysemy.Http.Log: runCologStdout :: Member (Embed IO) r => InterpreterFor (Log Message) r
- Polysemy.Http.Log: showSeverity :: Severity -> Text
- Polysemy.Http.Log: showSourceLoc :: CallStack -> Text
- Polysemy.Http.Log: toColog :: HasCallStack => Member (Log Message) r => Sem (Log : r) a -> Sem r a
+ Paths_polysemy_http: getBinDir :: IO FilePath
+ Paths_polysemy_http: getDataDir :: IO FilePath
+ Paths_polysemy_http: getDataFileName :: FilePath -> IO FilePath
+ Paths_polysemy_http: getDynLibDir :: IO FilePath
+ Paths_polysemy_http: getLibDir :: IO FilePath
+ Paths_polysemy_http: getLibexecDir :: IO FilePath
+ Paths_polysemy_http: getSysconfDir :: IO FilePath
+ Paths_polysemy_http: version :: Version
- Polysemy.Http.Data.Manager: get :: forall r_aocM. MemberWithError Manager r_aocM => Sem r_aocM Manager
+ Polysemy.Http.Data.Manager: get :: forall r_aokJ. MemberWithError Manager r_aokJ => Sem r_aokJ Manager
- Polysemy.Http.Data.Request: body :: HasRequest c_azZB => Lens' c_azZB Body
+ Polysemy.Http.Data.Request: body :: HasRequest c_axkR => Lens' c_axkR Body
- Polysemy.Http.Data.Request: class HasRequest c_azZB
+ Polysemy.Http.Data.Request: class HasRequest c_axkR
- Polysemy.Http.Data.Request: cookies :: HasRequest c_azZB => Lens' c_azZB CookieJar
+ Polysemy.Http.Data.Request: cookies :: HasRequest c_axkR => Lens' c_axkR CookieJar
- Polysemy.Http.Data.Request: headers :: HasRequest c_azZB => Lens' c_azZB [(HeaderName, HeaderValue)]
+ Polysemy.Http.Data.Request: headers :: HasRequest c_axkR => Lens' c_axkR [(HeaderName, HeaderValue)]
- Polysemy.Http.Data.Request: host :: HasRequest c_azZB => Lens' c_azZB Host
+ Polysemy.Http.Data.Request: host :: HasRequest c_axkR => Lens' c_axkR Host
- Polysemy.Http.Data.Request: method :: HasRequest c_azZB => Lens' c_azZB Method
+ Polysemy.Http.Data.Request: method :: HasRequest c_axkR => Lens' c_axkR Method
- Polysemy.Http.Data.Request: path :: HasRequest c_azZB => Lens' c_azZB Path
+ Polysemy.Http.Data.Request: path :: HasRequest c_axkR => Lens' c_axkR Path
- Polysemy.Http.Data.Request: port :: HasRequest c_azZB => Lens' c_azZB (Maybe Port)
+ Polysemy.Http.Data.Request: port :: HasRequest c_axkR => Lens' c_axkR (Maybe Port)
- Polysemy.Http.Data.Request: query :: HasRequest c_azZB => Lens' c_azZB [(QueryKey, Maybe QueryValue)]
+ Polysemy.Http.Data.Request: query :: HasRequest c_axkR => Lens' c_axkR [(QueryKey, Maybe QueryValue)]
- Polysemy.Http.Data.Request: request :: HasRequest c_azZB => Lens' c_azZB Request
+ Polysemy.Http.Data.Request: request :: HasRequest c_axkR => Lens' c_axkR Request
- Polysemy.Http.Data.Request: tls :: HasRequest c_azZB => Lens' c_azZB Tls
+ Polysemy.Http.Data.Request: tls :: HasRequest c_axkR => Lens' c_axkR Tls
Files
- integration/Main.hs +1/−2
- integration/Polysemy/Http/CookieTest.hs +2/−2
- integration/Polysemy/Http/RequestTest.hs +2/−2
- integration/Polysemy/Http/StreamTest.hs +2/−2
- lib/Polysemy/Http.hs +3/−6
- lib/Polysemy/Http/Data/Log.hs +0/−54
- lib/Polysemy/Http/Log.hs +0/−122
- lib/Polysemy/Http/Native.hs +2/−2
- polysemy-http.cabal +167/−13
integration/Main.hs view
@@ -1,11 +1,10 @@ module Main where -import Test.Tasty (TestTree, defaultMain, testGroup)- import Polysemy.Http.CookieTest (test_cookies) import Polysemy.Http.RequestTest (test_request) import Polysemy.Http.StreamTest (test_httpStream) import Polysemy.Http.Test (unitTest)+import Test.Tasty (TestTree, defaultMain, testGroup) tests :: TestTree tests =
integration/Polysemy/Http/CookieTest.hs view
@@ -3,6 +3,8 @@ import Control.Lens ((.~)) import Hedgehog (evalEither, (===)) import Polysemy (embedToFinal, runFinal)+import Polysemy.Log (interpretLogNull)+import Polysemy.Resource (resourceToIOFinal) import qualified Polysemy.Http.Data.Http as Http import Polysemy.Http.Data.HttpError (HttpError)@@ -10,13 +12,11 @@ import Polysemy.Http.Data.Request (Port(Port), Tls(Tls)) import qualified Polysemy.Http.Data.Response as Response import Polysemy.Http.Data.Response (Response)-import Polysemy.Http.Log (interpretLogNull) import Polysemy.Http.Native (interpretHttpNative) import qualified Polysemy.Http.Request as Request import Polysemy.Http.Request (addCookie) import Polysemy.Http.Server (withServer) import Polysemy.Http.Test (UnitTest)-import Polysemy.Resource (resourceToIOFinal) c1, c1v, c2, c2v :: Text c1 = "c1"
integration/Polysemy/Http/RequestTest.hs view
@@ -4,6 +4,8 @@ import qualified Data.Aeson as Aeson import Hedgehog (evalEither, (===)) import Polysemy (embedToFinal, runFinal)+import Polysemy.Log (interpretLogNull)+import Polysemy.Resource (resourceToIOFinal) import qualified Polysemy.Http.Data.Http as Http import Polysemy.Http.Data.HttpError (HttpError)@@ -12,12 +14,10 @@ import qualified Polysemy.Http.Data.Response as Response import Polysemy.Http.Data.Response (Response) import Polysemy.Http.Json (jsonContentType)-import Polysemy.Http.Log (interpretLogNull) import Polysemy.Http.Native (interpretHttpNative) import qualified Polysemy.Http.Request as Request import Polysemy.Http.Server (Payload(Payload), withServer) import Polysemy.Http.Test (UnitTest)-import Polysemy.Resource (resourceToIOFinal) runRequest :: Int ->
integration/Polysemy/Http/StreamTest.hs view
@@ -4,7 +4,7 @@ import qualified Data.ByteString as ByteString import Hedgehog (assert, evalEither, (===)) import Polysemy (embedToFinal, runFinal)-import Polysemy.Http.Log (interpretLogStdout)+import Polysemy.Log (interpretLogNull) import Polysemy.Resource (resourceToIOFinal) import Polysemy.State (runState) @@ -49,7 +49,7 @@ embedToFinal $ runError @HttpError $ runState empty $- interpretLogStdout $+ interpretLogNull $ interpretHttpNative $ Http.streamResponse (req port) handle
lib/Polysemy/Http.hs view
@@ -44,11 +44,10 @@ -- * Utilities -- ** Connection Pool module Polysemy.Http.Data.Manager,- -- ** Logging- module Polysemy.Http.Data.Log,- module Polysemy.Http.Log, ) where +import Prelude hiding (get, put)+ import Polysemy.Http.AesonEntity (interpretEntityDecodeAeson, interpretEntityEncodeAeson) import Polysemy.Http.Data.Entity ( Decode,@@ -67,7 +66,6 @@ import Polysemy.Http.Data.Header (Header(..), HeaderName(..), HeaderValue(..)) import Polysemy.Http.Data.Http (Http, request, response, stream) import Polysemy.Http.Data.HttpError (HttpError(..))-import Polysemy.Http.Data.Log (Log) import Polysemy.Http.Data.Manager (Manager) import Polysemy.Http.Data.Request ( Body(..),@@ -90,7 +88,6 @@ ) import Polysemy.Http.Data.StreamEvent (StreamEvent(..)) import Polysemy.Http.Http (streamResponse)-import Polysemy.Http.Log (interpretLogNull, interpretLogStdout) import Polysemy.Http.Native (interpretHttpNative) import Polysemy.Http.Request ( addCookie,@@ -110,13 +107,13 @@ withTls, ) import Polysemy.Http.Strict (interpretHttpStrict)-import Prelude hiding (get, put) -- $intro -- A basic 'Polysemy' effect abstracting HTTP requests: -- -- @ -- import Polysemy (resourceToIO, runM)+-- import Polysemy.Log.Colog (interpretLogStdout) -- import qualified Polysemy.Http as Http -- import Polysemy.Http (interpretHttpNative, interpretLogStdout) --
− lib/Polysemy/Http/Data/Log.hs
@@ -1,54 +0,0 @@-module Polysemy.Http.Data.Log where--import Polysemy.Internal (send)---- |An effect that wraps 'Colog.Polysemy.Log' for less boilerplate.--- Constructors are manual because 'HasCallStack' is always in scope.-data Log :: Effect where- Debug :: HasCallStack => Text -> Log m ()- Info :: HasCallStack => Text -> Log m ()- Warn :: HasCallStack => Text -> Log m ()- Error :: HasCallStack => Text -> Log m ()- ErrorPlus :: (HasCallStack, Traversable t) => Text -> t Text -> Log m ()--debug ::- HasCallStack =>- Member Log r =>- Text ->- Sem r ()-debug =- send . Debug--info ::- HasCallStack =>- Member Log r =>- Text ->- Sem r ()-info =- send . Info--warn ::- HasCallStack =>- Member Log r =>- Text ->- Sem r ()-warn =- send . Warn--error ::- HasCallStack =>- Member Log r =>- Text ->- Sem r ()-error =- send . Error--errorPlus ::- HasCallStack =>- Traversable t =>- Member Log r =>- Text ->- t Text ->- Sem r ()-errorPlus =- send .: ErrorPlus
− lib/Polysemy/Http/Log.hs
@@ -1,122 +0,0 @@-module Polysemy.Http.Log where--import Colog.Core (LogAction(LogAction), Severity, cmapM)-import qualified Colog.Core as Severity (Severity(Error, Info, Debug, Warning))-import qualified Colog.Polysemy as Colog (Log, log)-import Colog.Polysemy.Effect (runLogAction)-import qualified Data.ByteString.Char8 as BS8-import GHC.Stack (SrcLoc(SrcLoc), popCallStack, srcLocModule, srcLocStartLine)-import System.Console.ANSI (Color (..), ColorIntensity (Vivid), ConsoleLayer (Foreground), SGR (..), setSGRCode)--import Polysemy.Http.Data.Log (Log(..))--data Message =- Message {- msgSeverity :: !Severity,- msgStack :: !CallStack,- msgText :: !Text- }--showSeverity :: Severity -> Text-showSeverity = \case- Severity.Debug -> color Green "[Debug] "- Severity.Info -> color Blue "[Info] "- Severity.Warning -> color Yellow "[Warning] "- Severity.Error -> color Red "[Error] "- where- color :: Color -> Text -> Text- color c txt =- toText (setSGRCode [SetColor Foreground Vivid c]) <>- txt <>- toText (setSGRCode [Reset])--showSourceLoc :: CallStack -> Text-showSourceLoc cs =- square showCallStack- where- showCallStack :: Text- showCallStack = case getCallStack cs of- [] -> "<unknown loc>"- [(name, loc)] -> showLoc name loc- (_, loc) : (callerName, _) : _ -> showLoc callerName loc- square t = "[" <> t <> "] "- showLoc :: String -> SrcLoc -> Text- showLoc name SrcLoc{..} =- toText srcLocModule <> "." <> toText name <> "#" <> show srcLocStartLine--fmtRichMessageDefault :: Message -> IO Text-fmtRichMessageDefault =- pure . formatRichMessage- where- formatRichMessage :: Message -> Text- formatRichMessage Message{..} =- showSeverity msgSeverity- <> showSourceLoc msgStack- <> msgText--logByteStringStdout :: LogAction IO ByteString-logByteStringStdout = LogAction BS8.putStrLn--richMessageAction :: LogAction IO Message-richMessageAction =- cmapM (fmap encodeUtf8 . fmtRichMessageDefault) logByteStringStdout-{-# INLINE richMessageAction #-}--log ::- HasCallStack =>- Member (Colog.Log Message) r =>- Severity ->- Text ->- Sem r ()-log severity text =- Colog.log (Message severity stack text)- where- stack =- popCallStack (popCallStack callStack)---- |No-op interpreter for 'Log'-interpretLogNull ::- InterpreterFor Log r-interpretLogNull =- interpret \case- Debug _ -> unit- Info _ -> unit- Warn _ -> unit- Error _ -> unit- ErrorPlus _ _ -> unit-{-# INLINE interpretLogNull #-}--runCologStdout ::- Member (Embed IO) r =>- InterpreterFor (Colog.Log Message) r-runCologStdout =- runLogAction @IO richMessageAction-{-# INLINE runCologStdout #-}--toColog ::- HasCallStack =>- Member (Colog.Log Message) r =>- Sem (Log : r) a ->- Sem r a-toColog =- interpret \case- Debug msg ->- log Severity.Debug msg- Info msg ->- log Severity.Info msg- Warn msg ->- log Severity.Warning msg- Error msg ->- log Severity.Error msg- ErrorPlus msg detailed ->- log Severity.Error msg *> traverse_ (log Severity.Debug) detailed-{-# INLINE toColog #-}---- |Default interpreter for 'Log' that uses 'Colog.Log' to print to stdout-interpretLogStdout ::- Member (Embed IO) r =>- Sem (Log : r) a ->- Sem r a-interpretLogStdout =- runCologStdout . toColog . raiseUnder-{-# INLINE interpretLogStdout #-}
lib/Polysemy/Http/Native.hs view
@@ -6,8 +6,8 @@ import Network.HTTP.Client (BodyReader, httpLbs, responseClose, responseOpen) import Network.HTTP.Client.Internal (CookieJar(CJ)) import Polysemy (getInitialStateT, interpretH, runTSimple)-import qualified Polysemy.Http.Data.Log as Log-import Polysemy.Http.Data.Log (Log)+import qualified Polysemy.Log as Log+import Polysemy.Log (Log) import Polysemy.Resource (Resource, bracket) import Polysemy.Http.Data.Header (Header(Header), unHeaderName, unHeaderValue)
polysemy-http.cabal view
@@ -1,11 +1,11 @@ cabal-version: 2.2 --- This file has been generated from package.yaml by hpack version 0.34.2.+-- This file has been generated from package.yaml by hpack version 0.34.4. -- -- see: https://github.com/sol/hpack name: polysemy-http-version: 0.4.0.0+version: 0.4.0.1 synopsis: Polysemy effect for http-client description: Please see the README on Github at <https://github.com/tek/polysemy-http> category: Network@@ -33,7 +33,6 @@ Polysemy.Http.Data.Header Polysemy.Http.Data.Http Polysemy.Http.Data.HttpError- Polysemy.Http.Data.Log Polysemy.Http.Data.Manager Polysemy.Http.Data.Request Polysemy.Http.Data.Response@@ -41,7 +40,6 @@ Polysemy.Http.Data.StreamEvent Polysemy.Http.Http Polysemy.Http.Json- Polysemy.Http.Log Polysemy.Http.Manager Polysemy.Http.Native Polysemy.Http.Prelude@@ -54,12 +52,63 @@ Paths_polysemy_http hs-source-dirs: lib- default-extensions: AllowAmbiguousTypes ApplicativeDo BangPatterns BinaryLiterals BlockArguments ConstraintKinds DataKinds DefaultSignatures DeriveAnyClass DeriveDataTypeable DeriveFoldable DeriveFunctor DeriveGeneric DeriveTraversable DerivingVia DoAndIfThenElse EmptyDataDecls ExistentialQuantification FlexibleContexts FlexibleInstances FunctionalDependencies GADTs GeneralizedNewtypeDeriving InstanceSigs KindSignatures LambdaCase MultiParamTypeClasses MultiWayIf NamedFieldPuns OverloadedStrings PackageImports PartialTypeSignatures PatternGuards PatternSynonyms PolyKinds QuantifiedConstraints QuasiQuotes RankNTypes RecordWildCards RecursiveDo ScopedTypeVariables StandaloneDeriving TemplateHaskell TupleSections TypeApplications TypeFamilies TypeOperators TypeSynonymInstances UndecidableInstances UnicodeSyntax ViewPatterns+ default-extensions:+ AllowAmbiguousTypes+ ApplicativeDo+ BangPatterns+ BinaryLiterals+ BlockArguments+ ConstraintKinds+ DataKinds+ DefaultSignatures+ DeriveAnyClass+ DeriveDataTypeable+ DeriveFoldable+ DeriveFunctor+ DeriveGeneric+ DeriveTraversable+ DerivingVia+ DoAndIfThenElse+ EmptyDataDecls+ ExistentialQuantification+ FlexibleContexts+ FlexibleInstances+ FunctionalDependencies+ GADTs+ GeneralizedNewtypeDeriving+ InstanceSigs+ KindSignatures+ LambdaCase+ MultiParamTypeClasses+ MultiWayIf+ NamedFieldPuns+ OverloadedStrings+ PackageImports+ PartialTypeSignatures+ PatternGuards+ PatternSynonyms+ PolyKinds+ QuantifiedConstraints+ QuasiQuotes+ RankNTypes+ RecordWildCards+ RecursiveDo+ ScopedTypeVariables+ StandaloneDeriving+ TemplateHaskell+ TupleSections+ TypeApplications+ TypeFamilies+ TypeOperators+ TypeSynonymInstances+ UndecidableInstances+ UnicodeSyntax+ ViewPatterns ghc-options: -fplugin=Polysemy.Plugin -flate-specialise -fspecialise-aggressively -Wall -O2 build-depends: aeson >=1.4.4.0 , ansi-terminal >=0.9.1- , base >=4 && <5+ , base ==4.* , bytestring , case-insensitive >=1.2 , co-log-core >=0.2.1@@ -73,7 +122,8 @@ , http-types >=0.12.3 , lens >=4 , polysemy >=1.3.0- , polysemy-plugin >=0.2.5.1 && <0.3+ , polysemy-log+ , polysemy-plugin >=0.2.5.1 , relude >=0.5 && <0.8 , string-interpolate >=0.2.1 , template-haskell >=2.14.0@@ -95,12 +145,63 @@ Paths_polysemy_http hs-source-dirs: integration- default-extensions: AllowAmbiguousTypes ApplicativeDo BangPatterns BinaryLiterals BlockArguments ConstraintKinds DataKinds DefaultSignatures DeriveAnyClass DeriveDataTypeable DeriveFoldable DeriveFunctor DeriveGeneric DeriveTraversable DerivingVia DoAndIfThenElse EmptyDataDecls ExistentialQuantification FlexibleContexts FlexibleInstances FunctionalDependencies GADTs GeneralizedNewtypeDeriving InstanceSigs KindSignatures LambdaCase MultiParamTypeClasses MultiWayIf NamedFieldPuns OverloadedStrings PackageImports PartialTypeSignatures PatternGuards PatternSynonyms PolyKinds QuantifiedConstraints QuasiQuotes RankNTypes RecordWildCards RecursiveDo ScopedTypeVariables StandaloneDeriving TemplateHaskell TupleSections TypeApplications TypeFamilies TypeOperators TypeSynonymInstances UndecidableInstances UnicodeSyntax ViewPatterns+ default-extensions:+ AllowAmbiguousTypes+ ApplicativeDo+ BangPatterns+ BinaryLiterals+ BlockArguments+ ConstraintKinds+ DataKinds+ DefaultSignatures+ DeriveAnyClass+ DeriveDataTypeable+ DeriveFoldable+ DeriveFunctor+ DeriveGeneric+ DeriveTraversable+ DerivingVia+ DoAndIfThenElse+ EmptyDataDecls+ ExistentialQuantification+ FlexibleContexts+ FlexibleInstances+ FunctionalDependencies+ GADTs+ GeneralizedNewtypeDeriving+ InstanceSigs+ KindSignatures+ LambdaCase+ MultiParamTypeClasses+ MultiWayIf+ NamedFieldPuns+ OverloadedStrings+ PackageImports+ PartialTypeSignatures+ PatternGuards+ PatternSynonyms+ PolyKinds+ QuantifiedConstraints+ QuasiQuotes+ RankNTypes+ RecordWildCards+ RecursiveDo+ ScopedTypeVariables+ StandaloneDeriving+ TemplateHaskell+ TupleSections+ TypeApplications+ TypeFamilies+ TypeOperators+ TypeSynonymInstances+ UndecidableInstances+ UnicodeSyntax+ ViewPatterns ghc-options: -fplugin=Polysemy.Plugin -flate-specialise -fspecialise-aggressively -Wall -O2 -threaded -rtsopts -with-rtsopts=-N build-depends: aeson >=1.4.4.0 , ansi-terminal >=0.9.1- , base >=4 && <5+ , base ==4.* , bytestring , case-insensitive >=1.2 , co-log-core >=0.2.1@@ -117,7 +218,8 @@ , network , polysemy >=1.3.0 , polysemy-http- , polysemy-plugin >=0.2.5.1 && <0.3+ , polysemy-log+ , polysemy-plugin >=0.2.5.1 , relude >=0.5 && <0.8 , servant , servant-client@@ -145,12 +247,63 @@ Paths_polysemy_http hs-source-dirs: test- default-extensions: AllowAmbiguousTypes ApplicativeDo BangPatterns BinaryLiterals BlockArguments ConstraintKinds DataKinds DefaultSignatures DeriveAnyClass DeriveDataTypeable DeriveFoldable DeriveFunctor DeriveGeneric DeriveTraversable DerivingVia DoAndIfThenElse EmptyDataDecls ExistentialQuantification FlexibleContexts FlexibleInstances FunctionalDependencies GADTs GeneralizedNewtypeDeriving InstanceSigs KindSignatures LambdaCase MultiParamTypeClasses MultiWayIf NamedFieldPuns OverloadedStrings PackageImports PartialTypeSignatures PatternGuards PatternSynonyms PolyKinds QuantifiedConstraints QuasiQuotes RankNTypes RecordWildCards RecursiveDo ScopedTypeVariables StandaloneDeriving TemplateHaskell TupleSections TypeApplications TypeFamilies TypeOperators TypeSynonymInstances UndecidableInstances UnicodeSyntax ViewPatterns+ default-extensions:+ AllowAmbiguousTypes+ ApplicativeDo+ BangPatterns+ BinaryLiterals+ BlockArguments+ ConstraintKinds+ DataKinds+ DefaultSignatures+ DeriveAnyClass+ DeriveDataTypeable+ DeriveFoldable+ DeriveFunctor+ DeriveGeneric+ DeriveTraversable+ DerivingVia+ DoAndIfThenElse+ EmptyDataDecls+ ExistentialQuantification+ FlexibleContexts+ FlexibleInstances+ FunctionalDependencies+ GADTs+ GeneralizedNewtypeDeriving+ InstanceSigs+ KindSignatures+ LambdaCase+ MultiParamTypeClasses+ MultiWayIf+ NamedFieldPuns+ OverloadedStrings+ PackageImports+ PartialTypeSignatures+ PatternGuards+ PatternSynonyms+ PolyKinds+ QuantifiedConstraints+ QuasiQuotes+ RankNTypes+ RecordWildCards+ RecursiveDo+ ScopedTypeVariables+ StandaloneDeriving+ TemplateHaskell+ TupleSections+ TypeApplications+ TypeFamilies+ TypeOperators+ TypeSynonymInstances+ UndecidableInstances+ UnicodeSyntax+ ViewPatterns ghc-options: -fplugin=Polysemy.Plugin -flate-specialise -fspecialise-aggressively -Wall -O2 -threaded -rtsopts -with-rtsopts=-N build-depends: aeson >=1.4.4.0 , ansi-terminal >=0.9.1- , base >=4 && <5+ , base ==4.* , bytestring , case-insensitive >=1.2 , co-log-core >=0.2.1@@ -166,7 +319,8 @@ , lens >=4 , polysemy >=1.3.0 , polysemy-http- , polysemy-plugin >=0.2.5.1 && <0.3+ , polysemy-log+ , polysemy-plugin >=0.2.5.1 , relude >=0.5 && <0.8 , string-interpolate >=0.2.1 , tasty