From 1b16e2e566a6ebc5000961d5ebcb40c42d9dfcd3 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@rel4tion.org>
Date: Tue, 19 Apr 2016 06:58:48 +0000
Subject: [PATCH] Use some type alises from Database.Persist.Sql

---
 src/Vervis/Ssh.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

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"