liblastfm 0.0.3.5 → 0.0.3.6

raw patch · 4 files changed

+7/−8 lines, 4 filesdep ~bytestringPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: bytestring

API changes (from Hackage documentation)

Files

• liblastfm.cabal +2/−2
• src/Network/Lastfm/Internal.hs +3/−4
• src/Network/Lastfm/JSON.hs +1/−1
• src/Network/Lastfm/XML.hs +1/−1

@@ -1,5 +1,5 @@ name: liblastfm-version: 0.0.3.5+version: 0.0.3.6 synopsis: Wrapper to Lastfm API license: MIT license-file: LICENSE@@ -99,7 +99,7 @@  test-suite json-authentication   build-depends: base >= 3 && < 5,-                 bytestring == 0.9.*,+                 bytestring >= 0.9 && < 0.11,                  aeson == 0.6.*,                  HUnit == 1.2.4.*,                  liblastfm

@@ -23,20 +23,19 @@   -- Response format-data Format = Format { errorParser ∷ Response → Maybe LastfmError, uriArgument ∷ (String, String) }+data Format = Format { errorParser ∷ Response → Maybe LastfmError, uriArgument ∷ Maybe (String, String) }   -- Send POST query to Lastfm API callAPI ∷ Format → [(String, String)] → Lastfm Response-callAPI Format {errorParser = e, uriArgument = arg} = query e . (arg:) . map (second encodeString)-+callAPI Format {errorParser = e, uriArgument = arg} = query e . (maybe id (:) arg) . map (second encodeString)  -- Send signed POST query to Lastfm API callAPIsigned ∷ Format → Secret → [(String, String)] → Lastfm Response callAPIsigned Format {errorParser = e, uriArgument = arg} (Secret s) xs = query e zs  where   ys = map (second encodeString) . filter (not . null . snd) $ xs-  zs = (arg :) $ ("api_sig", sign ys) : ys+  zs = maybe id (:) arg $ ("api_sig", sign ys) : ys    sign ∷ [(String, String)] → String   sign = show . md5 . BS.pack . (++ s) . concatMap (uncurry (++)) . sortBy (compare `on` fst)

@@ -17,7 +17,7 @@ json ∷ Format json = Format         { errorParser = decode-        , uriArgument = ("format","json")+        , uriArgument = Just ("format","json")         }  

@@ -18,7 +18,7 @@ xml ∷ Format xml = Format         { errorParser = xmlErrorParser-        , uriArgument = ("format","xml")+        , uriArgument = Nothing         }