Removed containers dependency

This commit is contained in:
Michael Snoyman 2009-12-24 23:11:09 +02:00
parent 29afbd1b38
commit c8078f0be3
2 changed files with 4 additions and 4 deletions

View File

@ -34,7 +34,6 @@ import Data.Object.Json
import qualified Data.Text.Lazy as TL import qualified Data.Text.Lazy as TL
import Web.Encodings import Web.Encodings
import Text.StringTemplate.Classes import Text.StringTemplate.Classes
import qualified Data.Map as Map
import Control.Arrow (second) import Control.Arrow (second)
import Data.Attempt import Data.Attempt
@ -152,7 +151,9 @@ $(deriveSuccessConvs ''String ''Html
instance ToSElem HtmlObject where instance ToSElem HtmlObject where
toSElem (Scalar h) = STR $ TL.unpack $ cs h toSElem (Scalar h) = STR $ TL.unpack $ cs h
toSElem (Sequence hs) = LI $ map toSElem hs toSElem (Sequence hs) = LI $ map toSElem hs
toSElem (Mapping pairs) = SM $ Map.fromList $ map (second toSElem) pairs toSElem (Mapping pairs) = helper $ map (second toSElem) pairs where
helper :: [(String, SElem b)] -> SElem b
helper = SM . cs
#if TEST #if TEST
caseHtmlToText :: Assertion caseHtmlToText :: Assertion

View File

@ -48,7 +48,6 @@ library
convertible-text >= 0.2.0 && < 0.3, convertible-text >= 0.2.0 && < 0.3,
clientsession >= 0.0.1 && < 0.1, clientsession >= 0.0.1 && < 0.1,
zlib >= 0.5.2.0 && < 0.6, zlib >= 0.5.2.0 && < 0.6,
containers >= 0.2.0.1 && < 0.3,
HStringTemplate >= 0.6.2 && < 0.7, HStringTemplate >= 0.6.2 && < 0.7,
data-object-json >= 0.0.0 && < 0.1, data-object-json >= 0.0.0 && < 0.1,
attempt >= 0.2.1 && < 0.3, attempt >= 0.2.1 && < 0.3,
@ -83,7 +82,7 @@ executable runtests
test-framework-quickcheck, test-framework-quickcheck,
test-framework-hunit, test-framework-hunit,
HUnit, HUnit,
QuickCheck == 1.* QuickCheck >= 1 && < 2
else else
Buildable: False Buildable: False
ghc-options: -Wall ghc-options: -Wall