diff --git a/src/Vervis/Ssh.hs b/src/Vervis/Ssh.hs
index 392e987..be193bb 100644
--- a/src/Vervis/Ssh.hs
+++ b/src/Vervis/Ssh.hs
@@ -30,12 +30,12 @@ import Data.ByteString.Lazy (fromStrict)
 import Data.Foldable (find)
 import Data.Text (Text, pack, unpack)
 import Database.Persist
-import Database.Persist.Sql (SqlBackend, ConnectionPool, runSqlPool)
+import Database.Persist.Sql
 import Network.SSH
 import Network.SSH.Channel
 import Network.SSH.Crypto
 import Network.SSH.Session
-import Yesod.Default.Main (LogFunc)
+--import Yesod.Default.Main (LogFunc)
 
 import Vervis.Model
 import Vervis.Settings
@@ -47,12 +47,11 @@ import Vervis.Settings
 type ChannelBase = LoggingT (ReaderT ConnectionPool IO)
 type SessionBase = LoggingT (ReaderT ConnectionPool IO)
 --type UserAuthId = PersonId
-type Backend = SqlBackend
 
 type Channel = ChannelT {-UserAuthId-} ChannelBase
 type Session = SessionT SessionBase {-UserAuthId-} ChannelBase
-type SshChanDB = ReaderT Backend Channel
-type SshSessDB = ReaderT Backend Session
+type SshChanDB = SqlPersistT Channel
+type SshSessDB = SqlPersistT Session
 
 src :: Text
 src = "SSH"