From 0f241e31dbf62edbe64d15a1c16de71f23c557f0 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Tue, 12 Apr 2016 11:00:01 +0900
Subject: [PATCH] [MP] drop the accessor in favor of just using the
 ByteArrayAccess constraint

---
 Crypto/ConstructHash/MiyaguchiPreneel.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Crypto/ConstructHash/MiyaguchiPreneel.hs b/Crypto/ConstructHash/MiyaguchiPreneel.hs
index 0ca83fc..803d954 100644
--- 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