-- | Overwrite the current deck without saving it.
setDeck :: Deck -> Kerchief ()
setDeck deck = do
    ksDeck     .= Just deck
    ksModified .= True

-- | Load the given deck, given its name. Return the deck if the load
-- was successful (i.e. does the deck exist?).
setDeck :: Deck -> Kerchief ()
setDeck deck = do
    ksDeck     .= Just deck
    ksModified .= True

-- | Load the given deck, given its name. Return the deck if the load
-- was successful (i.e. does the deck exist?).
setDeck deck = do
    ksDeck     .= Just deck
    ksModified .= True

-- | Load the given deck, given its name. Return the deck if the load
-- was successful (i.e. does the deck exist?).