forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Use some type alises from Database.Persist.Sql

Browse source
This commit is contained in:
fr33domlover 2016-04-19 06:58:48 +00:00
parent aa024a3ee4
commit 1b16e2e566
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Vervis/Ssh.hs
View file

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