handleAddFrontBack' :: String -> Deck -> Kerchief ()
handleAddFrontBack' line deck = either left right . parse parseFrontBack "" $ line
  where
    left :: ParseError -> Kerchief ()
    left _ = io printAddUsage

    right :: (String, String) -> Kerchief ()
    right (front, back) = doAddCard front back Nothing deck
handleAddFrontBack' :: String -> Deck -> Kerchief ()
handleAddFrontBack' line deck = either left right . parse parseFrontBack "" $ line
  where
    left :: ParseError -> Kerchief ()
    left _ = io printAddUsage

    right :: (String, String) -> Kerchief ()
    right (front, back) = doAddCard front back Nothing deck
handleAddFrontBack' line deck = either left right . parse parseFrontBack "" $ line
  where
    left :: ParseError -> Kerchief ()
    left _ = io printAddUsage

    right :: (String, String) -> Kerchief ()
    right (front, back) = doAddCard front back Nothing deck