hxt-extras (empty) → 0.1
raw patch · 4 files changed
+70/−0 lines, 4 filesdep +basedep +hxtsetup-changed
Dependencies added: base, hxt
Files
- LICENSE +27/−0
- Setup.lhs +3/−0
- Text/XML/HXT/Extras.hs +15/−0
- hxt-extras.cabal +25/−0
+ LICENSE view
@@ -0,0 +1,27 @@+Copyright 2009 Tony Morris++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions+are met:+1. Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.+2. Redistributions in binary form must reproduce the above copyright+ notice, this list of conditions and the following disclaimer in the+ documentation and/or other materials provided with the distribution.+3. Neither the name of the author nor the names of his contributors+ may be used to endorse or promote products derived from this software+ without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE+ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS+OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)+HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF+SUCH DAMAGE.
+ Setup.lhs view
@@ -0,0 +1,3 @@+#!/usr/bin/env runhaskell+> import Distribution.Simple+> main = defaultMain
+ Text/XML/HXT/Extras.hs view
@@ -0,0 +1,15 @@+-- | Extra library functions for HXT.+module Text.XML.HXT.Extras(+ showPickled,+ textAttr+ ) where++import Text.XML.HXT.Arrow++-- | Pickles a value then writes the document to a string.+showPickled :: (XmlPickler a) => Attributes -> a -> String+showPickled a = concat . (pickleDoc xpickle >>> runLA (writeDocumentToString a))++-- | A text attribute+textAttr :: String -> PU String+textAttr = flip xpAttr xpText
+ hxt-extras.cabal view
@@ -0,0 +1,25 @@+Name: hxt-extras+Version: 0.1+License: BSD3+License-File: LICENSE+Synopsis: Extra functions for HXT+Description: Extra library functionality for HXT+Homepage: http://code.google.com/p/hxt-extras/+Category: XML+Author: Tony Morris+Maintainer: code@tmorris.net+Copyright: 2009 Tony Morris+build-type: Simple+cabal-version: >= 1.2++Flag small_base+ Description: Choose the new, split-up base package.++Library+ if flag(small_base)+ Build-Depends: base < 4 && >= 3, hxt+ else+ Build-Depends: base < 3, hxt++ GHC-Options: -Wall+ Exposed-Modules: Text.XML.HXT.Extras