From 31c243d5679825362ca0f60042ad5f4f8a2ba6dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 12 Sep 2026 11:05:16 +0200
Subject: Add "writable" flag to repo required for pushing

---
 src/Config.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Config.hs')

diff --git a/src/Config.hs b/src/Config.hs
index 651b05c..885e9a8 100644
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -188,10 +188,11 @@ parsePush = withSeq "Push list" $ mapM $
 
 parseRepo :: Text -> Node Pos -> Parser DeclaredRepo
 parseRepo name node = choice
-    [ flip (withNull "Repo") node $ return $ DeclaredRepo (RepoName name) Nothing
+    [ flip (withNull "Repo") node $ return $ DeclaredRepo (RepoName name) Nothing False
     , flip (withMap "Repo") node $ \r -> DeclaredRepo
         <$> pure (RepoName name)
         <*> (fmap T.unpack <$> r .:? "path")
+        <*> (fromMaybe False <$> r .:? "writable")
     ]
 
 parseDestination :: Text -> Node Pos -> Parser DeclaredDestination
-- 
cgit v1.2.3