Commit c111209c authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Comments only

parent bf63a08a
......@@ -779,7 +779,11 @@ match_inline _ (Type _ : e : _)
match_inline _ _ = Nothing
-------------------------------------------------
-- Integer rules
-- smallInteger (79::Int#) = 79::Integer
-- wordToInteger (79::Word#) = 79::Integer
-- Similarly Int64, Word64
match_IntToInteger :: Id
-> IdUnfoldingFun
......@@ -833,6 +837,7 @@ match_Word64ToInteger id id_unf [xl]
panic "match_Word64ToInteger: Id has the wrong type"
match_Word64ToInteger _ _ _ = Nothing
-------------------------------------------------
match_Integer_convert :: Num a
=> (a -> Expr CoreBndr)
-> Id
......
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