tiny little protocol between git-remote-daemon and git-annex-shell

Subset of the git-remote-daemon protocol.

2 files changed, 29 insertions, 2 deletions

diff --git a/RemoteDaemon/Endpoint/GitAnnexShell/Types.hs b/RemoteDaemon/Endpoint/GitAnnexShell/Types.hs
new file mode 100644
index 000000000..dd8b59d1d
--- /dev/null
+++ b/RemoteDaemon/Endpoint/GitAnnexShell/Types.hs
@@ -0,0 +1,29 @@
+{- git-remote-daemon, git-annex-shell endpoint, datatypes
+ -
+ - 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.EndPoint.GitAnnexShell.Types where
+
+import Common.Annex
+import qualified Git.Types as Git
+import qualified Utility.SimpleProtocol as Proto
+import RemoteDaemon.Types (RemoteName, RefList)
+
+data Notifications
+	= CHANGED RemoteName RefList
+
+instance Proto.Sendable Notifications where
+	formatMessage (CHANGED remote refs) =
+		["CHANGED"
+		, Proto.serialize remote
+		, Proto.serialize refs
+		]
+
+instance Proto.Receivable Notifications where
+	parseCommand "CHANGED" = Proto.parse2 CHANGED
diff --git a/RemoteDaemon/Types.hs b/RemoteDaemon/Types.hs
index 49813fc89..746b895f6 100644
--- a/RemoteDaemon/Types.hs
+++ b/RemoteDaemon/Types.hs
@@ -14,8 +14,6 @@ import Common.Annex
 import qualified Git.Types as Git
 import qualified Utility.SimpleProtocol as Proto
 
-import Control.Concurrent.STM
-
 -- Messages that the daemon emits.
 data Emitted
 	= CHANGED RemoteName RefList