Safe Haskell | Safe-Inferred |
---|---|
Language | Haskell2010 |
Synopsis
- data Config = Config {
- _cfgLogLevel :: Level
- _cfgSPHost :: String
- _cfgSPPort :: Int
- _cfgSPAppURI :: URI
- _cfgSPSsoURI :: URI
- _cfgContacts :: [ContactPerson]
- data Level
- cfgSPSsoURI :: Lens' Config URI
- cfgSPPort :: Lens' Config Int
- cfgSPHost :: Lens' Config String
- cfgSPAppURI :: Lens' Config URI
- cfgLogLevel :: Lens' Config Level
- cfgContacts :: Lens' Config [ContactPerson]
- fallbackConfig :: Config
- fallbackContact :: ContactPerson
- configIO :: IO Config
- configFilePath :: IO FilePath
- readConfig :: FilePath -> IO Config
- writeConfig :: Config -> IO ()
- idpConfigIO :: Config -> IO [IdPConfig_]
- idpConfigFilePath :: IO FilePath
- readIdPConfig :: Config -> FilePath -> IO [IdPConfig_]
- class HasConfig m where
Documentation
Config | |
|
Instances
this looks exactly like tinylog's type, but we redefine it here to avoid the dependency.
Instances
FromJSON Level Source # | |
ToJSON Level Source # | |
Bounded Level Source # | |
Enum Level Source # | |
Generic Level Source # | |
Show Level Source # | |
Eq Level Source # | |
Ord Level Source # | |
type Rep Level Source # | |
Defined in SAML2.WebSSO.Config type Rep Level = D1 ('MetaData "Level" "SAML2.WebSSO.Config" "saml2-web-sso-0.20-JnyBok8kx0LFwqAg1j3uky" 'False) ((C1 ('MetaCons "Trace" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Debug" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Info" 'PrefixI 'False) (U1 :: Type -> Type))) :+: (C1 ('MetaCons "Warn" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "Error" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "Fatal" 'PrefixI 'False) (U1 :: Type -> Type)))) |
writeConfig :: Config -> IO () Source #
Convenience function to write a config file if you don't already have one. Writes to `$SAML2_WEB_SSO_ROOT/server.yaml`. Warns if env does not contain the root.
idpConfigIO :: Config -> IO [IdPConfig_] Source #
readIdPConfig :: Config -> FilePath -> IO [IdPConfig_] Source #