signature :: B.ByteString -> Builder -> B.ByteString
signature authtoken contents = encode $ hmacsha1 authtoken rbs
    where rbs = BL.toStrict $ toLazyByteString contents
signature :: B.ByteString -> Builder -> B.ByteString
signature authtoken contents = encode $ hmacsha1 authtoken rbs
    where rbs = BL.toStrict $ toLazyByteString contents
signature authtoken contents = encode $ hmacsha1 authtoken rbs
    where rbs = BL.toStrict $ toLazyByteString contents