module SwapArgs.B where
-- Test for refactor of if to case

import Data.List -- For testing module graph
  import C          -- For testing module graph

foo x = if (odd x) then "Odd" else "Even"

bob :: a -> b -> Int
bob x y = 1 + 2

  let foo x = x + 2 in ( let foo x = x+1 in   x + foo y )
--    where
         foo x = x + 1


foo' x = case (odd x) of
  True -> "Odd"
  False -> "Even"

main :: IO ()
main = do
  putStrLn $ show $ (foo (5 + 42))

mary :: [Integer]
mary = [1,2,3]

h z = bob z 2

data D = A | B String | C

subdecl x = zz x
  where
    zz n = n + 1



 Test for refactor of if to case
 For testing module graph
 For testing module graph
    where
module SwapArgs.B where


foo x = if (odd x) then "Odd" else "Even"

bob :: a -> b -> Int
bob x y = 1 + 2

  let foo x = x + 2 in ( let foo x = x+1 in   x + foo y )
         foo x = x + 1


foo' x = case (odd x) of
  True -> "Odd"
  False -> "Even"

main :: IO ()
main = do
  putStrLn $ show $ (foo (5 + 42))

mary :: [Integer]
mary = [1,2,3]

h z = bob z 2

data D = A | B String | C

subdecl x = zz x
  where
    zz n = n + 1


