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:
parent
0be9f7a2c6
commit
a01d64a4ad
6 changed files with 32 additions and 3 deletions
21
CmdLine/GitRemoteAnnex.hs
Normal file
21
CmdLine/GitRemoteAnnex.hs
Normal 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"
|
Loading…
Add table
Add a link
Reference in a new issue