sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 19:04:52 +09:00
Code Issues 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.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"