fay-0.24.2.0: tests/whereBind2.hs

module WhereBind2 where

someFun :: Int -> String
someFun x = fun x
  where fun x | x < 50 = "ok"
              | otherwise = "nop"

main :: Fay ()
main = do
    putStrLn (someFun 30)
    putStrLn (someFun 100)