22 lines
475 B
Haskell
22 lines
475 B
Haskell
|
{- git-remote-daemon transports
|
||
|
|
-
|
||
|
|
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
||
|
|
-
|
||
|
|
- Licensed under the GNU GPL version 3 or higher.
|
||
|
|
-}
|
||
|
|
|
||
|
|
module RemoteDaemon.Transport where
|
||
|
|
|
||
|
|
import RemoteDaemon.Types
|
||
|
|
import qualified RemoteDaemon.Transport.Ssh
|
||
|
|
|
||
|
|
import qualified Data.Map as M
|
||
|
|
|
||
|
|
-- Corresponds to uriScheme
|
||
|
|
type TransportScheme = String
|
||
|
|
|
||
|
|
remoteTransports :: M.Map TransportScheme Transport
|
||
|
|
remoteTransports = M.fromList
|
||
|
|
[ ("ssh:", RemoteDaemon.Transport.Ssh.transport)
|
||
|
|
]
|