Permalink
Browse files

fixed cabal build

migrated from darcs

Tue Nov 23 19:13:11 CET 2010  Johannes Wei� <weiss@tux4u.de>
  * MINOR: fixed cabal build
  • Loading branch information...
1 parent 9770c4c commit 3470130a2e754db100beab7809d3f4172f912e3c @skogsbaer committed Jan 16, 2011
Showing with 7 additions and 8 deletions.
  1. +2 −7 src/Text/XML/Generator.hs
  2. +5 −1 xmlgen.cabal
@@ -8,8 +8,6 @@ import Data.Monoid
import Blaze.ByteString.Builder
import Blaze.ByteString.Builder.Char.Utf8
-import Debug.Trace
-
newtype Out t = Out { outBuf :: Builder }
data ATTR = ATTR
data ELEM = ELEM
@@ -105,9 +103,6 @@ xelemQ ns' name attrs elems (Out buffer)
let endOut = Out (mconcat [elemsBuffer, fromString "</", elemNameBuilder, fromString "\n>"])
return (endOut, uriMapAttrs)
-eTrace :: (Show a) => a -> a
-eTrace a = trace ("TRACE: " ++ (show a)) a
-
isDefaultNamespace :: Namespace -> Bool
isDefaultNamespace (DefaultNamespace) = True
isDefaultNamespace _ = False
@@ -141,7 +136,7 @@ xtext content (Out buffer)
return (t3, state'')
genValidNsForDesiredPrefix :: OutEnv -> Namespace -> (Namespace, OutEnv, Bool)
-genValidNsForDesiredPrefix env ns = eTrace $
+genValidNsForDesiredPrefix env ns =
case ns of
DefaultNamespace -> (ns, env, False)
QualifiedNamespace p u -> ( QualifiedNamespace validPrefix u
@@ -159,7 +154,7 @@ genValidPrefix env prefix uri =
in if foundUri == uri then prefix else genValidPrefix env nextPrefix uri
followingPrefix :: Prefix -> Prefix
-followingPrefix p = eTrace $ '_':p
+followingPrefix p = '_':p
xrender :: Trans Elem -> Builder
xrender elem = buffer
View
@@ -3,7 +3,7 @@ Version: 0.1.0.0
Synopsis: Fast XML generation library
License: BSD3
License-file: LICENSE
-Author: Stefan Schmidt, Stefan Wehr
+Author: Stefan Schmidt, Stefan Wehr, Johannes Weiss
Maintainer: wehr@factisresearch.com
Category: Text
Build-type: Simple
@@ -12,3 +12,7 @@ Cabal-version: >=1.2
Library
Exposed-modules: Text.XML.Generator
+ Hs-Source-Dirs: src
+ Build-Depends: blaze-builder >= 0.2 && < 0.3, base >= 4.2 && < 4.3,
+ bytestring >= 0.9 && < 0.10, containers >= 0.3 && < 0.4,
+ monads-tf >= 0.1 && < 0.2

0 comments on commit 3470130

Please sign in to comment.