format and fix Werror compile error

This commit is contained in:
Emily Martins 2022-06-23 15:05:35 +02:00
parent 6a4b945375
commit c7869fe701
4 changed files with 18 additions and 13 deletions

View file

@ -1 +0,0 @@
module Cache where

View file

@ -11,7 +11,7 @@ import Network.Wai.Handler.Warp qualified as Warp
import Options.Applicative ((<**>)) import Options.Applicative ((<**>))
import Options.Applicative qualified as Opt import Options.Applicative qualified as Opt
data Options = Options newtype Options = Options
{ port :: Warp.Port { port :: Warp.Port
} }
deriving stock (Show, Eq) deriving stock (Show, Eq)

View file

@ -12,11 +12,11 @@ license: Apache-2.0
common lang common lang
ghc-options: ghc-options:
-Wall -Wcompat -Wincomplete-uni-patterns -Wno-unused-do-bind -Werror -Wall -Wcompat -Wincomplete-uni-patterns
-Wno-partial-type-signatures -Wmissing-export-lists -Wno-unused-do-bind -Wno-partial-type-signatures
-Wincomplete-record-updates -Wmissing-deriving-strategies -Wmissing-export-lists -Wincomplete-record-updates
-Wno-name-shadowing -Wunused-foralls -fprint-explicit-foralls -Wmissing-deriving-strategies -Wno-name-shadowing -Wunused-foralls
-fprint-explicit-kinds -Werror -fprint-explicit-foralls -fprint-explicit-kinds
mixins: mixins:
base hiding (Prelude), base hiding (Prelude),
@ -28,7 +28,6 @@ common lang
BinaryLiterals BinaryLiterals
ConstrainedClassMethods ConstrainedClassMethods
ConstraintKinds ConstraintKinds
DuplicateRecordFields
DataKinds DataKinds
DeriveAnyClass DeriveAnyClass
DeriveDataTypeable DeriveDataTypeable
@ -40,6 +39,7 @@ common lang
DerivingStrategies DerivingStrategies
DerivingVia DerivingVia
DoAndIfThenElse DoAndIfThenElse
DuplicateRecordFields
EmptyCase EmptyCase
EmptyDataDecls EmptyDataDecls
EmptyDataDeriving EmptyDataDeriving
@ -138,6 +138,7 @@ common exe-opts
library library
import: lang, deps import: lang, deps
exposed-modules: exposed-modules:
Agora.Aeson.Orphans
Agora.AuthorityToken Agora.AuthorityToken
Agora.Effect Agora.Effect
Agora.Effect.GovernorMutation Agora.Effect.GovernorMutation
@ -146,6 +147,7 @@ library
Agora.Governor Agora.Governor
Agora.Governor.Scripts Agora.Governor.Scripts
Agora.MultiSig Agora.MultiSig
Agora.Plutarch.Orphans
Agora.Proposal Agora.Proposal
Agora.Proposal.Scripts Agora.Proposal.Scripts
Agora.Proposal.Time Agora.Proposal.Time
@ -157,9 +159,6 @@ library
Agora.Utils Agora.Utils
other-modules: other-modules:
Agora.Aeson.Orphans
Agora.Plutarch.Orphans
hs-source-dirs: agora hs-source-dirs: agora
library pprelude library pprelude
@ -246,6 +245,7 @@ executable agora-scripts
, agora , agora
, cache , cache
, clock , clock
, containers
, gitrev , gitrev
, hashable , hashable
, http-types , http-types
@ -256,7 +256,6 @@ executable agora-scripts
, wai , wai
, wai-cors , wai-cors
, warp , warp
, containers
executable agora-purescript-bridge executable agora-purescript-bridge
import: lang, deps, exe-opts import: lang, deps, exe-opts

View file

@ -20,7 +20,14 @@ import Agora.Aeson.Orphans ()
import Data.Aeson qualified as Aeson import Data.Aeson qualified as Aeson
import GHC.Generics qualified as GHC import GHC.Generics qualified as GHC
import Plutarch.Api.V1 (PMintingPolicy, PValidator, mintingPolicySymbol, mkMintingPolicy, mkValidator, validatorHash) import Plutarch.Api.V1 (PMintingPolicy, PValidator, mintingPolicySymbol, mkMintingPolicy, mkValidator, validatorHash)
import PlutusLedgerApi.V1 (BuiltinByteString, CurrencySymbol (unCurrencySymbol), MintingPolicy, Script, Validator, ValidatorHash, unMintingPolicyScript) import PlutusLedgerApi.V1 (
BuiltinByteString,
CurrencySymbol,
MintingPolicy,
Script,
Validator,
ValidatorHash,
)
-- | Bundle containing a 'Script' and its hash. -- | Bundle containing a 'Script' and its hash.
data ScriptInfo = ScriptInfo data ScriptInfo = ScriptInfo