fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge pull request #72 from mtlstats/allow-dashes

Browse Source 
allow dashes in database backup files
This commit is contained in:
Jonathan Lamothe
2020-02-04 00:25:09 -05:00
committed by GitHub
parent 2c78a591ca accc831bc5
commit bd5bc21661
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Mtlstats/Prompt.hs
View File

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