Removed containers dependency
This commit is contained in:
parent
29afbd1b38
commit
c8078f0be3
@ -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
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user