fubar.hs

get_winner :: (Integer, Integer) -> Integer
get_winner (first, second)
  | first > second = 1
  | first < second = -1
  | otherwise = 0

main = do
  print $ get_winner $ (21, 52)
 
-- main.hs:40:1: error:
--     • Couldn't match expected type ‘IO t0’ with actual type ‘Integer’
--     • In the expression: main
--       When checking the type of the IO action ‘main’