removes unneeded deps

This commit is contained in:
Aaron Greenspan
2019-12-24 13:36:00 -07:00
parent aa7008e3d9
commit b40d4799f4
2 changed files with 3 additions and 17 deletions

View File

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

View File

@@ -7,8 +7,7 @@
-- declared in the Foundation.hs file.
module Settings where
import Crypto.Hash
import Startlude hiding (hash)
import Startlude
import qualified Control.Exception as Exception
import Data.Aeson
@@ -50,14 +49,6 @@ instance FromJSON AppSettings where
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@
configSettingsYmlBS :: ByteString
configSettingsYmlBS = $(embedFile configSettingsYml)