diff --git a/lib/Hikaru/Config.hs b/lib/Hikaru/Config.hs index 8131f184aa817cf4abc5335e4e99ae2502b455ba..e0a914c6001c7421c009332e56ca5da318e558bd 100644 --- a/lib/Hikaru/Config.hs +++ b/lib/Hikaru/Config.hs @@ -27,6 +27,7 @@ module Hikaru.Config , configDefault -- * Reading Config + , configGet , configGetMaybe , configGetDefault @@ -107,6 +108,16 @@ where ] + -- | + -- Obtain value of a configuration key or raise an error. + -- You really should not use this function, you know? + -- + configGet :: (Param a) => Text -> Config -> a + configGet name cfg = case configGetMaybe name cfg of + Just value -> value + Nothing -> error (name <> " not set!") + + -- | -- Try to obtain value of a configuration key. --