cosmetic: I just learned about LambdaCase

Using

      m >>= \case
         Constructor1 -> ...
         Constructor2 -> ...

instead of

      tmp <- m
      case tmp of
         Constructor1 -> ...
         Constructor2 -> ...