diff options
Diffstat (limited to 'Command/ConfigList.hs')
-rw-r--r-- | Command/ConfigList.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Command/ConfigList.hs b/Command/ConfigList.hs index e65d0f033..46c909107 100644 --- a/Command/ConfigList.hs +++ b/Command/ConfigList.hs @@ -15,6 +15,7 @@ import qualified Annex.Branch import qualified Git.Config import Remote.GCrypt (coreGCryptId) import qualified CmdLine.GitAnnexShell.Fields as Fields +import CmdLine.GitAnnexShell.Checks cmd :: Command cmd = noCommit $ dontCheck repoExists $ @@ -44,6 +45,7 @@ findOrGenUUID = do then return u else ifM (Annex.Branch.hasSibling <||> (isJust <$> Fields.getField Fields.autoInit)) ( do + liftIO checkNotReadOnly initialize Nothing getUUID , return NoUUID |