

setOption :: Text -> Conf.Value -> MakePackage ()
setOption c x = MP $ modify (Map.insert c x)

-- | Get option from configuration file or prompt user
confOrPrompt :: Text.Text -> Text.Text -> Text.Text -> MakePackage Text.Text
confOrPrompt c p i = confLookup c >>= \case
    Nothing -> prompt c p i
    Just x  -> return x

-- | Get option from configuration file, git configuration or promp user
confOrGitOrPromptString ::
     Text.Text -> Text.Text -> Text.Text -> Text.Text -> MakePackage Text.Text
confOrGitOrPromptString c gitQ p i = confLookup c >>= \case