diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index f9d64ea..b91e49e 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -19,28 +19,19 @@ import Control.Concurrent.Chan
 import Control.Concurrent.STM.TVar
 import Control.Monad
 import Control.Monad.Logger.CallStack (logWarn)
-import Control.Monad.Trans.Except
-import Control.Monad.Trans.Maybe
-import Crypto.Error (CryptoFailable (..))
-import Crypto.Hash
-import Data.Char
-import Data.Either (isRight)
-import Data.HashMap.Strict (HashMap)
 import Data.List.NonEmpty (NonEmpty (..))
 import Data.Text (Text)
 import Data.Text.Encoding
 import Data.Time.Calendar
 import Data.Time.Clock
-import Data.Time.Interval (TimeInterval, fromTimeUnit, toTimeUnit)
+import Data.Time.Interval (fromTimeUnit, toTimeUnit)
 import Data.Traversable
 import Data.Vector (Vector)
 import Database.Persist.Postgresql
-import Database.Persist.Sql (ConnectionPool, runSqlPool)
+import Database.Persist.Sql (ConnectionPool)
 import Graphics.SVGFonts.ReadFont (PreparedFont)
 import Network.HTTP.Client (Manager, HasHttpManager (..))
 import Network.HTTP.Types.Header
-import Network.URI (URI, uriAuthority, uriFragment, uriRegName, parseURI)
-import Network.Wai
 import Text.Shakespeare.Text (textFile)
 import Text.Hamlet          (hamletFile)
 --import Text.Jasmine         (minifym)
@@ -58,9 +49,7 @@ import Yesod.Form.Types
 import Yesod.Persist.Core
 import Yesod.Static
 
-import qualified Data.ByteString.Char8 as BC (unpack)
 import qualified Data.ByteString.Lazy as BL (ByteString)
-import qualified Data.HashMap.Strict as M (lookup, insert)
 import qualified Data.Time.Units as U
 import qualified Database.Esqueleto as E
 import qualified Yesod.Core.Unsafe as Unsafe
@@ -76,7 +65,6 @@ import Yesod.Mail.Send
 
 import qualified Network.HTTP.Signature as S (Algorithm (..))
 
-import Control.Concurrent.ResultShare
 import Crypto.PublicVerifKey
 import Network.FedURI
 import Web.ActivityAccess