projects
/
coq-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
87dbd44
)
fix bugs in LaTeX output
author
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 14 Mar 2011 08:51:16 +0000
(
01:51
-0700)
committer
Adam Megacz
<megacz@cs.berkeley.edu>
Mon, 14 Mar 2011 08:51:16 +0000
(
01:51
-0700)
src/HaskStrongTypes.v
patch
|
blob
|
history
diff --git
a/src/HaskStrongTypes.v
b/src/HaskStrongTypes.v
index
1bab8f5
..
81beb65
100644
(file)
--- a/
src/HaskStrongTypes.v
+++ b/
src/HaskStrongTypes.v
@@
-563,9
+563,9
@@
Fixpoint typeToString' (needparens:bool)(n:nat){κ}(t:RawHaskType (fun _ => nat)
end
| TArrow => "(->)"
| TAll k f => let alpha := "tv"+++n
end
| TArrow => "(->)"
| TAll k f => let alpha := "tv"+++n
- in "(forall "+++ alpha +++ "{:}"+++ k +++")"+++
+ in "(forall "+++ alpha +++ ":"+++ k +++")"+++
typeToString' false (S n) (f n)
typeToString' false (S n) (f n)
- | TCode ec t => "<["+++(typeToString' true n ec)+++"]>@"+++(typeToString' false n t)
+ | TCode ec t => "<["+++(typeToString' true n t)+++"]>@"+++(typeToString' false n ec)
| TyFunApp tfc lt => tfc+++"_"+++n+++" ["+++(fold_left (fun x y => " \ "+++x+++y) (typeList2string false n lt) "")+++"]"
end
with typeList2string (needparens:bool)(n:nat){κ}(t:RawHaskTypeList κ) {struct t} : list string :=
| TyFunApp tfc lt => tfc+++"_"+++n+++" ["+++(fold_left (fun x y => " \ "+++x+++y) (typeList2string false n lt) "")+++"]"
end
with typeList2string (needparens:bool)(n:nat){κ}(t:RawHaskTypeList κ) {struct t} : list string :=