[MP] drop the accessor in favor of just using the ByteArrayAccess constraint

2016-04-12 11:00:01 +09:00 · 2016-04-12 11:00:01 +09:00 · 0f241e31db
commit 0f241e31db
parent 5d96c804ae
1 changed files with 2 additions and 2 deletions
--- a/Crypto/ConstructHash/MiyaguchiPreneel.hs
+++ b/Crypto/ConstructHash/MiyaguchiPreneel.hs
@ -23,8 +23,8 @@ import           Crypto.Internal.ByteArray (ByteArrayAccess, ByteArray, Bytes)
 import qualified Crypto.Internal.ByteArray as B


-newtype MiyaguchiPreneel a = MP { chashGetBytes :: Bytes }
-    deriving ByteArrayAccess
+newtype MiyaguchiPreneel a = MP Bytes
+    deriving (ByteArrayAccess)

 instance Eq (MiyaguchiPreneel a) where
    MP b1 == MP b2  =  B.constEq b1 b2