signURL :: Keys -> URL -> PostData -> String
signURL (Keys _ s) u p = show $ md5 fullURL
    where
        fullURL = BS.packChars $ s ++ u ++ postValues sortedPost

        sortedPost = L.sort p
        postValues d  = L.intercalate "," $ map snd d
signURL :: Keys -> URL -> PostData -> String
signURL (Keys _ s) u p = show $ md5 fullURL
    where
        fullURL = BS.packChars $ s ++ u ++ postValues sortedPost

        sortedPost = L.sort p
        postValues d  = L.intercalate "," $ map snd d
signURL (Keys _ s) u p = show $ md5 fullURL
    where
        fullURL = BS.packChars $ s ++ u ++ postValues sortedPost

        sortedPost = L.sort p
        postValues d  = L.intercalate "," $ map snd d