Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-04-01 20:44:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

mass clean up of warnings, hints, errors

Browse Source
This commit is contained in:
Keagan McClelland
2022-05-26 18:26:16 -06:00
parent 3d8b4057df
commit 2105c58182
27 changed files with 681 additions and 386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
src/Settings.hs
View File

@@ -9,16 +9,40 @@
module Settings where
import Paths_start9_registry ( version )
import Startlude
import Startlude ( ($)
, (.)
, (<$>)
, Applicative(liftA2)
, Bool(..)
, ByteString
, ConvertText(toS)
, FilePath
, IsString(fromString)
, Monad(return)
, Monoid(mempty)
, Text
, Word16
, either
, id
, panic
)
import qualified Control.Exception as Exception
import Data.Aeson
import Data.Aeson.Types
import Data.Aeson ( (.!=)
, (.:)
, (.:?)
, FromJSON(parseJSON)
, Result(Error, Success)
, Value(String)
, fromJSON
, withObject
)
import Data.Aeson.Types ( parseMaybe )
import Data.FileEmbed ( embedFile )
import Data.Maybe
import Data.Maybe ( fromJust )
import Data.Version ( showVersion )
import Data.Yaml ( decodeEither' )
import Data.Yaml.Config
import Data.Yaml.Config ( applyEnvValue )
import Database.Persist.Postgresql ( PostgresConf )
import Network.Wai.Handler.Warp ( HostPreference )
import System.FilePath ( (</>)
@@ -30,7 +54,7 @@ import Control.Monad.Reader.Has ( Has(extract, update) )
import Lib.PkgRepository ( EosRepo(EosRepo, eosRepoFileRoot)
, PkgRepo(..)
)
import Lib.Types.Emver
import Lib.Types.Emver ( Version )
import Orphans.Emver ( )
-- | Runtime settings to configure this application. These settings can be
-- loaded from various sources: defaults, environment variables, config files,