diff options
Diffstat (limited to 'CmdLine/GitAnnexShell.hs')
-rw-r--r-- | CmdLine/GitAnnexShell.hs | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/CmdLine/GitAnnexShell.hs b/CmdLine/GitAnnexShell.hs index 6c212b24d..21284f400 100644 --- a/CmdLine/GitAnnexShell.hs +++ b/CmdLine/GitAnnexShell.hs @@ -34,19 +34,19 @@ import qualified Command.GCryptSetup cmds_readonly :: [Command] cmds_readonly = concat - [ gitAnnexShellCheck Command.ConfigList.def - , gitAnnexShellCheck Command.InAnnex.def - , gitAnnexShellCheck Command.SendKey.def - , gitAnnexShellCheck Command.TransferInfo.def - , gitAnnexShellCheck Command.NotifyChanges.def + [ gitAnnexShellCheck Command.ConfigList.cmd + , gitAnnexShellCheck Command.InAnnex.cmd + , gitAnnexShellCheck Command.SendKey.cmd + , gitAnnexShellCheck Command.TransferInfo.cmd + , gitAnnexShellCheck Command.NotifyChanges.cmd ] cmds_notreadonly :: [Command] cmds_notreadonly = concat - [ gitAnnexShellCheck Command.RecvKey.def - , gitAnnexShellCheck Command.DropKey.def - , gitAnnexShellCheck Command.Commit.def - , Command.GCryptSetup.def + [ gitAnnexShellCheck Command.RecvKey.cmd + , gitAnnexShellCheck Command.DropKey.cmd + , gitAnnexShellCheck Command.Commit.cmd + , Command.GCryptSetup.cmd ] cmds :: [Command] @@ -66,7 +66,7 @@ options = commonOptions ++ check u = unexpectedUUID expected u checkGCryptUUID expected = check =<< getGCryptUUID True =<< gitRepo where - check (Just u) | u == toUUID expected = noop + check (Just u) | u == toUUID expected = noop check Nothing = unexpected expected "uninitialized repository" check (Just u) = unexpectedUUID expected u unexpectedUUID expected u = unexpected expected $ "UUID " ++ fromUUID u |