From b40d4799f4554fcf05ad0f2955b90e1653c4f120 Mon Sep 17 00:00:00 2001
From: Aaron Greenspan <agreenspan@Salt-100014.local>
Date: Tue, 24 Dec 2019 13:36:00 -0700
Subject: [PATCH] removes unneeded deps

---
 package.yaml    |  9 ++-------
 src/Settings.hs | 11 +----------
 2 files changed, 3 insertions(+), 17 deletions(-)

diff --git a/package.yaml b/package.yaml
index 74b5256..07c9eb5 100644
--- a/package.yaml
+++ b/package.yaml
@@ -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
diff --git a/src/Settings.hs b/src/Settings.hs
index 822f50c..98cef44 100644
--- a/src/Settings.hs
+++ b/src/Settings.hs
@@ -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)