handleAddWord :: String -> Kerchief ()
handleAddWord word = getDeck >>= maybe printNoDeckLoadedError (handleAddWord' word)
handleAddWord :: String -> Kerchief ()
handleAddWord word = getDeck >>= maybe printNoDeckLoadedError (handleAddWord' word)
handleAddWord word = getDeck >>= maybe printNoDeckLoadedError (handleAddWord' word)