Mercurial > urweb
comparison src/elab.sml @ 731:e0dd85ea58e1
Label exported symbols by effect-ness; factor out some common datatypes
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 16 Apr 2009 14:49:25 -0400 |
parents | acb8537f58f0 |
children | 8688e01ae469 |
comparison
equal
deleted
inserted
replaced
730:1b1047992ecf | 731:e0dd85ea58e1 |
---|---|
79 | CError | 79 | CError |
80 | CUnif of ErrorMsg.span * kind * string * con option ref | 80 | CUnif of ErrorMsg.span * kind * string * con option ref |
81 | 81 |
82 withtype con = con' located | 82 withtype con = con' located |
83 | 83 |
84 datatype datatype_kind = | 84 datatype datatype_kind = datatype DatatypeKind.datatype_kind |
85 Enum | |
86 | Option | |
87 | Default | |
88 | 85 |
89 datatype patCon = | 86 datatype patCon = |
90 PConVar of int | 87 PConVar of int |
91 | PConProj of int * string list * string | 88 | PConProj of int * string list * string |
92 | 89 |