Souds vide cooker in Haskell