allow dashes in database backup files

This commit is contained in:
Jonathan Lamothe 2020-02-04 00:19:15 -05:00
parent 2c78a591ca
commit accc831bc5

View File

@ -172,11 +172,12 @@ numPromptWithFallback pStr fallback act = Prompt
-- to
newSeasonPrompt :: Prompt
newSeasonPrompt = prompt
{ promptProcessChar = \ch str -> if isAlphaNum ch
{ promptProcessChar = \ch str -> if validChar ch
then str ++ [toUpper ch]
else str
}
where
prompt = strPrompt "Filename to save database: " $ \fn ->
if null fn
then modify backHome
@ -184,6 +185,8 @@ newSeasonPrompt = prompt
saveDatabase $ fn ++ ".json"
modify $ progMode .~ NewSeason True
validChar = (||) <$> isAlphaNum <*> (=='-')
-- | Builds a selection prompt
selectPrompt :: SelectParams a -> Prompt
selectPrompt params = Prompt