twitter-conduit 0.1.2 → 0.1.3

raw patch · 3 files changed

+7/−6 lines, 3 files

Files

• Web/Twitter/Conduit/Base.hs +2/−3
• Web/Twitter/Conduit/Types.hs +4/−2
• twitter-conduit.cabal +1/−1

@@ -68,11 +68,10 @@              -> IO HTTP.Request makeRequest' m url query = do     req <- HTTP.parseUrl url-    let params = HT.renderSimpleQuery False query-        addParams =+    let addParams =             if m == "POST"             then HTTP.urlEncodedBody query-            else \r -> r { HTTP.queryString = params }+            else \r -> r { HTTP.queryString = HT.renderSimpleQuery False query }     return $ addParams $ req { HTTP.method = m                              , HTTP.checkStatus = \_ _ _ -> Nothing                              }

@@ -1,3 +1,4 @@+{-# LANGUAGE DeriveDataTypeable #-} module Web.Twitter.Conduit.Types        ( TWToken (..)        , TWInfo (..)@@ -6,20 +7,21 @@        ) where  import Data.Default+import Data.Typeable (Typeable) import Web.Authenticate.OAuth import Network.HTTP.Conduit  data TWToken = TWToken     { twOAuth :: OAuth     , twCredential :: Credential-    } deriving (Show, Eq)+    } deriving (Show, Read, Eq, Typeable) instance Default TWToken where     def = TWToken twitterOAuth (Credential [])  data TWInfo = TWInfo     { twToken :: TWToken     , twProxy :: Maybe Proxy-    } deriving (Show, Eq)+    } deriving (Show, Read, Eq, Typeable) instance Default TWInfo where     def = TWInfo         { twToken = def

@@ -1,5 +1,5 @@ name:              twitter-conduit-version:           0.1.2+version:           0.1.3 license:           BSD3 license-file:      LICENSE author:            HATTORI Hiroki, Hideyuki Tanaka, Takahiro HIMURA