Searched refs:invalidChoice (Results 1 – 2 of 2) sorted by relevance
137 Nothing -> invalidChoice inp139 where invalidChoice inp = do putStrLn $ inp ++ " is not a valid choice." function141 getChoice n | n < 1 || n > numChoices = invalidChoice (show n)
796 Nothing -> invalidChoice inp798 where invalidChoice inp = do putStrLn $ inp ++ " is not a valid choice." function800 getChoice n | n < 1 || n > numChoices = invalidChoice (show n)