diff options
Diffstat (limited to 'src/Config.hs')
| -rw-r--r-- | src/Config.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |