Simples shoes inventory with Yesod