FExpected.hs

module F where
-- Test for refactor of if to case

foo x = case (odd x) of
          True  -> do
            bob x 1
          False -> do
            bob x 2

bob x y = x + y