add git-remote-annex stub and build machinery

Renamed git-remote-annex.sh, keeping it around for now for reference.

Sponsored-by: Graham Spencer on Patreon
This commit is contained in:
Joey Hess 2024-05-06 12:58:38 -04:00
parent 0be9f7a2c6
commit a01d64a4ad
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
6 changed files with 32 additions and 3 deletions

21
CmdLine/GitRemoteAnnex.hs Normal file
View file

@ -0,0 +1,21 @@
{- git-remote-annex program
-
- Copyright 2024 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
module CmdLine.GitRemoteAnnex where
import Common
import qualified Annex
import qualified Git.CurrentRepo
import Annex.UUID
import Annex.Action
run :: [String] -> IO ()
run (_remotename:address:[]) = forever $
getLine >>= \case
l -> giveup $ "gitremote-helpers protocol error at " ++ show l
run (_remotename:[]) = giveup "remote address not configured"
run _ = giveup "expected remote name and address parameters"