happstack-util 6.0.0 → 6.0.2

raw patch · 2 files changed

+3/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• happstack-util.cabal +1/−1
• src/Happstack/Crypto/W64.hs +2/−1

@@ -1,5 +1,5 @@ Name:                happstack-util-Version:             6.0.0+Version:             6.0.2 Synopsis:            Web framework License:             BSD3 License-file:        COPYING

@@ -4,6 +4,7 @@ import Happstack.Crypto.DES import Happstack.Crypto.SHA1 import Data.List+import Data.Bits import Numeric(readHex) #ifdef TEST import Test.QuickCheck@@ -31,7 +32,7 @@ quadCharToW64 :: (Num b, Enum a) => [a] -> b quadCharToW64 = fromInteger . impl . map (fromIntegral.fromEnum)     where impl :: [Integer] -> Integer-          impl [a,b,c,d]=(a*2^24+b*2^16+c*2^8+d)+          impl [a,b,c,d] = (a `shiftL` 24) + (b `shiftL` 16) + (c `shiftL` 8) + d           impl _ = error "Argument to quadCharToW64 must be length 4"  w64ToQuadChar :: (Integral a, Enum b) => a -> [b]