Permalink
Browse files

no need to use plug here

  • Loading branch information...
1 parent 8d423ba commit 4cfacadb6e67ce9fd1297da9785e4ba1cf5c681f @mausch committed Jan 24, 2011
Showing with 1 addition and 2 deletions.
  1. +1 −2 SimpleFormlets/Core/Formlets.fs
@@ -49,8 +49,7 @@ module XmlWriter =
let lift2 f a b = puree f <*> a <*> b
let plug (f: xml_item list -> xml_item list) (a: 'a XmlWriter) : 'a XmlWriter =
f (fst a), snd a
- let xml (e: xml_item list): unit XmlWriter =
- plug (fun _ -> e) (puree ())
+ let xml (e: xml_item list): unit XmlWriter = e,()
let text (s: string) : unit XmlWriter =
xml [Text s]
let tag (t: string) (attr: (string*string) list) (v: 'a XmlWriter) : 'a XmlWriter =

0 comments on commit 4cfacad

Please sign in to comment.