From 95d278b9b8e9c314541b8251a34a32fe6deeb896 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 13 Jul 2008 11:43:57 -0400 Subject: Starting with closure links --- lib/basis.lig | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'lib/basis.lig') diff --git a/lib/basis.lig b/lib/basis.lig index cd106950..dcf1713d 100644 --- a/lib/basis.lig +++ b/lib/basis.lig @@ -20,6 +20,8 @@ val join : shared :: {Unit} -> xml (shared ++ ctx1) -> xml (shared ++ ctx2) -> xml shared +con xhtml = xml [Html] + val head : tag [] [Html] [Head] val title : tag [] [Head] [] @@ -28,3 +30,5 @@ val p : tag [] [Body] [Body] val b : tag [] [Body] [Body] val i : tag [] [Body] [Body] val font : tag [Size = int, Face = string] [Body] [Body] + +val a : tag [Link = xhtml] [Body] [Body] -- cgit v1.2.3