0fbbec261d
This will be used by the remote-daemon to quickly tell when changes have been pushed from some other repository into a ssh remote. Adjusted the remote-daemon protocol to communicate changed shas, rather than git branch refs. This way, it can easily check if a sha is new. This commit was sponsored by Carlos Trijueque Albarran.
83 lines
2.2 KiB
Haskell
83 lines
2.2 KiB
Haskell
{- git-remote-daemon data types.
|
|
-
|
|
- Copyright 2014 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
|
|
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module RemoteDaemon.Types where
|
|
|
|
import qualified Git.Types as Git
|
|
import qualified Utility.SimpleProtocol as Proto
|
|
|
|
-- Messages that the daemon emits.
|
|
data Emitted
|
|
= CONNECTED RemoteName
|
|
| DISCONNECTED RemoteName
|
|
| CHANGED RemoteName ShaList
|
|
| STATUS RemoteName UserMessage
|
|
| ERROR RemoteName UserMessage
|
|
|
|
-- Messages that the deamon consumes.
|
|
data Consumed
|
|
= PAUSE
|
|
| RESUME
|
|
| PUSH RemoteName
|
|
| RELOAD
|
|
|
|
type RemoteName = String
|
|
type UserMessage = String
|
|
type ShaList = [Git.Sha]
|
|
|
|
instance Proto.Sendable Emitted where
|
|
formatMessage (CONNECTED remote) =
|
|
["CONNECTED", Proto.serialize remote]
|
|
formatMessage (DISCONNECTED remote) =
|
|
["DISCONNECTED", Proto.serialize remote]
|
|
formatMessage (CHANGED remote shas) =
|
|
["CHANGED"
|
|
, Proto.serialize remote
|
|
, Proto.serialize shas
|
|
]
|
|
formatMessage (STATUS remote msg) =
|
|
["STATUS"
|
|
, Proto.serialize remote
|
|
, Proto.serialize msg
|
|
]
|
|
formatMessage (ERROR remote msg) =
|
|
["ERROR"
|
|
, Proto.serialize remote
|
|
, Proto.serialize msg
|
|
]
|
|
|
|
instance Proto.Sendable Consumed where
|
|
formatMessage PAUSE = ["PAUSE"]
|
|
formatMessage RESUME = ["RESUME"]
|
|
formatMessage (PUSH remote) = ["PUSH", Proto.serialize remote]
|
|
formatMessage RELOAD = ["RELOAD"]
|
|
|
|
instance Proto.Receivable Emitted where
|
|
parseCommand "CONNECTED" = Proto.parse1 CONNECTED
|
|
parseCommand "DISCONNECTED" = Proto.parse1 DISCONNECTED
|
|
parseCommand "CHANGED" = Proto.parse2 CHANGED
|
|
parseCommand "STATUS" = Proto.parse2 STATUS
|
|
parseCommand "ERROR" = Proto.parse2 ERROR
|
|
parseCommand _ = Proto.parseFail
|
|
|
|
instance Proto.Receivable Consumed where
|
|
parseCommand "PAUSE" = Proto.parse0 PAUSE
|
|
parseCommand "RESUME" = Proto.parse0 RESUME
|
|
parseCommand "PUSH" = Proto.parse1 PUSH
|
|
parseCommand "RELOAD" = Proto.parse0 RELOAD
|
|
parseCommand _ = Proto.parseFail
|
|
|
|
instance Proto.Serializable [Char] where
|
|
serialize = id
|
|
deserialize = Just
|
|
|
|
instance Proto.Serializable ShaList where
|
|
serialize = unwords . map Git.fromRef
|
|
deserialize = Just . map Git.Ref . words
|