diff options
Diffstat (limited to 'CmdLine')
| -rw-r--r-- | CmdLine/GitAnnexShell.hs | 3 | ||||
| -rw-r--r-- | CmdLine/GitAnnexShell/Fields.hs | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/CmdLine/GitAnnexShell.hs b/CmdLine/GitAnnexShell.hs index 074257ac5..170548d1c 100644 --- a/CmdLine/GitAnnexShell.hs +++ b/CmdLine/GitAnnexShell.hs @@ -34,7 +34,7 @@ import qualified Command.GCryptSetup cmds_readonly :: [Command] cmds_readonly = - [ gitAnnexShellCheck Command.ConfigList.cmd + [ Command.ConfigList.cmd , gitAnnexShellCheck Command.InAnnex.cmd , gitAnnexShellCheck Command.SendKey.cmd , gitAnnexShellCheck Command.TransferInfo.cmd @@ -146,6 +146,7 @@ checkField (field, val) | field == fieldName remoteUUID = fieldCheck remoteUUID val | field == fieldName associatedFile = fieldCheck associatedFile val | field == fieldName direct = fieldCheck direct val + | field == fieldName autoInit = fieldCheck autoInit val | otherwise = False failure :: IO () diff --git a/CmdLine/GitAnnexShell/Fields.hs b/CmdLine/GitAnnexShell/Fields.hs index 93b048040..bc26df73f 100644 --- a/CmdLine/GitAnnexShell/Fields.hs +++ b/CmdLine/GitAnnexShell/Fields.hs @@ -34,3 +34,6 @@ associatedFile = Field "associatedfile" $ \f -> direct :: Field direct = Field "direct" $ \f -> f == "1" + +autoInit :: Field +autoInit = Field "autoinit" $ \f -> f == "1" |