diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-17 18:56:05 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-17 18:56:05 -0400 |
| commit | 14ca9ca78ff2ec55b5f353fe101562830a8dd9d7 (patch) | |
| tree | 303aa7b4308037fbcc8854474bdd5fd3463338cc /UI/Readline.hs | |
| parent | c394b41a2ffb7e987864fa64fd583017c717703b (diff) | |
| download | keysafe-14ca9ca78ff2ec55b5f353fe101562830a8dd9d7.tar.gz | |
obscure name
Diffstat (limited to 'UI/Readline.hs')
| -rw-r--r-- | UI/Readline.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/UI/Readline.hs b/UI/Readline.hs index c75bd19..668c023 100644 --- a/UI/Readline.hs +++ b/UI/Readline.hs @@ -61,8 +61,8 @@ myPromptQuestion title desc question = bracket_ setup cleanup go putStrLn "Please enter 'y' or 'n'" go -myPromptName :: Title -> Desc -> Name -> (Name -> Maybe Problem) -> IO (Maybe Name) -myPromptName title desc (Name suggested) checkproblem = +myPromptName :: Title -> Desc -> Maybe Name -> (Name -> Maybe Problem) -> IO (Maybe Name) +myPromptName title desc suggested checkproblem = bracket_ setup cleanup go where setup = do @@ -70,7 +70,9 @@ myPromptName title desc (Name suggested) checkproblem = putStrLn desc cleanup = putStrLn "" go = do - addHistory (BU8.toString suggested) + case suggested of + Nothing -> return () + Just (Name b) -> addHistory (BU8.toString b) mname <- readline "Name> " case mname of Just s -> do |