Commit 9497869b authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

-fwarn-identities doesn't test for fromInteger and fromRational

parent f53b2d98
......@@ -10,18 +10,6 @@ ok1 x = fromIntegral x
warn1 :: Int -> Int
warn1 x = fromIntegral x
ok2 :: Integer -> Float
ok2 x = fromInteger x
warn2 :: Integer -> Integer
warn2 x = fromInteger x
-- ok3 :: Rational -> Float
ok3 x = fromRational x
warn3 :: Rational -> Rational
warn3 x = fromRational x
ok4 :: Int -> Integer
ok4 x = toInteger x
......
......@@ -5,26 +5,16 @@ T4488.hs:11:11:
(Use -fno-warn-identities to suppress this messsage))
T4488.hs:17:11:
Warning: Call of fromInteger :: Integer -> Integer
can probably be omitted
(Use -fno-warn-identities to suppress this messsage))
T4488.hs:23:11:
Warning: Call of fromRational :: Rational -> Rational
can probably be omitted
(Use -fno-warn-identities to suppress this messsage))
T4488.hs:29:11:
Warning: Call of toInteger :: Integer -> Integer
can probably be omitted
(Use -fno-warn-identities to suppress this messsage))
T4488.hs:35:11:
T4488.hs:23:11:
Warning: Call of toRational :: Rational -> Rational
can probably be omitted
(Use -fno-warn-identities to suppress this messsage))
T4488.hs:41:11:
T4488.hs:29:11:
Warning: Call of realToFrac :: Float -> Float
can probably be omitted
(Use -fno-warn-identities to suppress this messsage))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment