fixed cabal build

migrated from darcs

Tue Nov 23 19:13:11 CET 2010  Johannes Weiß <weiss@tux4u.de>
  * MINOR: fixed cabal build

src/Text/XML/Generator.hs

@@ -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

xmlgen.cabal

@@ -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