module E where
-- Test for refactor of if to case in a complex sub level
-- The comments on the then and else legs should be preserved
foo x = bob x f
where
f = (case (odd x) of
True -> do
-- This is an odd result
bob x 1
False -> do
-- This is an even result
bob x 2) + 2
bob x y = x + y