Report question

Question: Haskell syntax for a case expression in a do block