mirror of
https://github.com/Start9Labs/registry.git
synced 2026-03-30 11:51:57 +00:00
removes unneeded deps
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user