Commit 40317587 authored by sof's avatar sof
Browse files

[project @ 1999-01-21 15:08:51 by sof]

With Haskell98, Enum.enumFromThen can generate sequences that
are either increasing, decreasing or infinite.
parent ec48c5ab
......@@ -505,7 +505,12 @@ gen_Enum_binds tycon
HsPar (enum_from_then_to_Expr
(mk_easy_App mkInt_RDR [ah_RDR])
(mk_easy_App mkInt_RDR [bh_RDR])
(HsVar (maxtag_RDR tycon)))
(HsIf (HsApp (HsApp (HsVar gt_RDR)
(HsVar a_RDR))
(HsVar b_RDR))
(HsLit (HsInt 0))
(HsVar (maxtag_RDR tycon))
tycon_loc))
from_enum
= mk_easy_FunMonoBind tycon_loc fromEnum_RDR [a_Pat] [] $
......
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