annotate src/ur/feed.urs @ 1:8de269c09617
Outputting a summary of Marginal Revolution RSS feed
| author |
Adam Chlipala <adam@chlipala.net> |
| date |
Tue, 11 Jan 2011 13:17:44 -0500 |
| parents |
ad85b8813e8a |
| children |
ea0ca570c121 |
| rev |
line source |
|
adam@1
|
1 con pattern :: Type -> Type -> Type
|
|
adam@1
|
2
|
|
adam@1
|
3 con tagInternal :: {Unit} -> Type
|
|
adam@1
|
4
|
|
adam@1
|
5 val tag : attrs ::: {Unit} -> folder attrs -> string -> $(mapU string attrs)
|
|
adam@1
|
6 -> pattern (tagInternal attrs) {Attrs : $(mapU string attrs), Cdata : option string}
|
|
adam@1
|
7
|
|
adam@1
|
8 con childrenInternal :: Type -> {Type} -> Type
|
|
adam@1
|
9
|
|
adam@1
|
10 val children : parentI ::: Type -> parent ::: Type -> children ::: {(Type * Type)}
|
|
adam@1
|
11 -> pattern parentI parent -> $(map (fn (i, d) => pattern i d) children) -> folder children
|
|
adam@1
|
12 -> pattern (childrenInternal parentI (map fst children)) (parent * $(map snd children))
|
|
adam@1
|
13
|
|
adam@1
|
14 val app : internal ::: Type -> data ::: Type -> pattern internal data -> (data -> transaction {}) -> string -> transaction {}
|
