hMollom 0.1 → 0.1.1

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

hMollom.cabal +2/−2
src/Network/Mollom.hs +3/−1

hMollom.cabal view

@@ -1,6 +1,6 @@ name:                hMollom-version:             0.1-cabal-version:       >= 1.2+version:             0.1.1+cabal-version:       >= 1.6 stability:           experimental synopsis:            Library to interact with the Mollom anti-spam service description:         Library to interact with the Mollom anti-spam service

src/Network/Mollom.hs view

@@ -96,9 +96,10 @@       requestStruct = [("public_key", publicKey), ("time", timeStamp), ("hash", hash), ("nonce", nonce)] ++ fields   response <- remote (mollomFallbackServer ++ mollomApiVersion ++ "/") function requestStruct   return response-+{- -- | make the actual XML-RPC call to the Mollom server returning --   the raw XML response, for debug purposes+--   This requires that haxr exports the post function! service__ :: MollomConn    -- ^connection to the Mollom service           -> String        -- ^remote function name           -> MollomRequest -- ^request specific data@@ -111,6 +112,7 @@       hash = authenticate publicKey privateKey timeStamp nonce   response <- post (mollomFallbackServer ++ mollomApiVersion ++ "/") (renderCall $ MethodCall function [toValue ([("public_key", publicKey), ("time", timeStamp), ("hash", hash), ("nonce", nonce)] ++ fields)] )   return response+  -}   -- | request a list of Mollom servers that can handle a site's calls.