[Haskell-beginners] Understanding wrap function in Connor McBride's Faking It