inventory :: Text -> Handler Text
inventory urlHash = do
    itemsInInventory <- showInventory urlHash
    let items = toItemName "" itemsInInventory
    case items of
        [] -> return "No items in inventory."
        _  -> return $ pack $ "Your inventory contains: " ++ items
inventory :: Text -> Handler Text
inventory urlHash = do
    itemsInInventory <- showInventory urlHash
    let items = toItemName "" itemsInInventory
    case items of
        [] -> return "No items in inventory."
        _  -> return $ pack $ "Your inventory contains: " ++ items
inventory urlHash = do
    itemsInInventory <- showInventory urlHash
    let items = toItemName "" itemsInInventory
    case items of
        [] -> return "No items in inventory."
        _  -> return $ pack $ "Your inventory contains: " ++ items