Browse Source

Support for containers 0.4

master
Michael Snoyman 12 years ago
parent
commit
57944095ab
  1. 2
      pontarius-xmpp.cabal
  2. 5
      source/Network/Xmpp/IM/Roster.hs

2
pontarius-xmpp.cabal

@ -43,7 +43,7 @@ Library
, base64-bytestring >=0.1.0.0 , base64-bytestring >=0.1.0.0
, binary >=0.4.1 , binary >=0.4.1
, conduit >=1.0.1 , conduit >=1.0.1
, containers >=0.5.0.0 , containers >=0.4.0.0
, crypto-api >=0.9 , crypto-api >=0.9
, crypto-random-api >=0.2 , crypto-random-api >=0.2
, cryptohash >=0.6.1 , cryptohash >=0.6.1

5
source/Network/Xmpp/IM/Roster.hs

@ -1,4 +1,5 @@
{-# OPTIONS_HADDOCK hide #-} {-# OPTIONS_HADDOCK hide #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE NoMonomorphismRestriction #-} {-# LANGUAGE NoMonomorphismRestriction #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
@ -8,7 +9,11 @@ import Control.Applicative ((<$>))
import Control.Concurrent.STM import Control.Concurrent.STM
import Control.Monad import Control.Monad
import Data.List (nub) import Data.List (nub)
#if MIN_VERSION_containers(0, 5, 0)
import qualified Data.Map.Strict as Map import qualified Data.Map.Strict as Map
#else
import qualified Data.Map as Map
#endif
import Data.Maybe (isJust, fromMaybe) import Data.Maybe (isJust, fromMaybe)
import Data.Text (Text) import Data.Text (Text)
import Data.XML.Pickle import Data.XML.Pickle

Loading…
Cancel
Save