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

@@ -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)