Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-26 02:11:53 +00:00
Code Issues Packages Projects Releases Wiki Activity

removes unneeded deps

Browse Source
This commit is contained in:
Aaron Greenspan
2019-12-24 13:36:00 -07:00
parent a86364b851
commit 029fb6d404
2 changed files with 3 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
package.yaml
View File

@@ -44,20 +44,18 @@ dependencies:
- comonad - comonad
- conduit - conduit
- conduit-extra - conduit-extra
- cryptonite
- data-default - data-default
- directory - directory
- dns - dns
- either - either
- errors - errors
- fast-logger >=2.2 && <2.5
- file-embed - file-embed
- fast-logger >=2.2 && <2.5
- filepath - filepath
- http-client - http-client
- http-conduit - http-conduit
- http-types - http-types
- interpolate - interpolate
- iso8601-time
- jose-jwt - jose-jwt
- lens - lens
- lens-aeson - lens-aeson
@@ -70,16 +68,13 @@ dependencies:
- process - process
- protolude - protolude
- safe - safe
- secp256k1-haskell
- split - split
- template-haskell - template-haskell
- text >=0.11 && <2.0 - text >=0.11 && <2.0
- time - time
- transformers - transformers
- unix
- unordered-containers - unordered-containers
- vault - unix
- vector
- wai - wai
- wai-cors - wai-cors
- wai-extra >=3.0 && <3.1 - wai-extra >=3.0 && <3.1

11
src/Settings.hs
View File

@@ -7,8 +7,7 @@
-- declared in the Foundation.hs file. -- declared in the Foundation.hs file.
module Settings where module Settings where
import Crypto.Hash import Startlude
import Startlude hiding (hash)
import qualified Control.Exception as Exception import qualified Control.Exception as Exception
import Data.Aeson import Data.Aeson
@@ -50,14 +49,6 @@ instance FromJSON AppSettings where
return AppSettings { .. } return AppSettings { .. }
apNameFromPass :: Text -> Text
apNameFromPass password = prefix <> toS (take 4 hashStr)
where
bs = encodeUtf8 password
hashed = hash bs :: Digest SHA256
hashStr = show hashed :: String
prefix = "start9-"
-- | Raw bytes at compile time of @config/settings.yml@ -- | Raw bytes at compile time of @config/settings.yml@
configSettingsYmlBS :: ByteString configSettingsYmlBS :: ByteString
configSettingsYmlBS = $(embedFile configSettingsYml) configSettingsYmlBS = $(embedFile configSettingsYml)