storable-endian 0.2.5 → 0.2.6

raw patch · 2 files changed

+21/−12 lines, 2 filesdep ~basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• Data/Storable/Endian.hs +20/−11
• storable-endian.cabal +1/−1

@@ -1,3 +1,5 @@+{-# LANGUAGE DeriveGeneric, GeneralizedNewtypeDeriving #-}+ ----------------------------------------------------------------------------- -- | -- Module      :  Data.Storable.Endian@@ -11,32 +13,41 @@ -- Storable instances with endianness. -- -module Data.Storable.Endian +module Data.Storable.Endian   (     LittleEndian(..), BigEndian(..),     HasLittleEndian(..), HasBigEndian(..)-  ) +  )   where  import System.ByteOrder -import Foreign.Storable import Foreign.Ptr+import Foreign.Storable  import Unsafe.Coerce -import Data.Word import Data.Bits+import Data.Word  #if defined(__GLASGOW_HASKELL__) && !defined(__HADDOCK__) import GHC.Base-import GHC.Word import GHC.Int+import GHC.Word #endif -newtype LittleEndian a = LE a-newtype BigEndian    a = BE a+import GHC.Generics (Generic(..)) +newtype LittleEndian a = LE { getLittleEndian :: a }+  deriving ( Eq, Ord, Show, Read, Enum+           , Num, Integral, Fractional, Floating, Real, RealFrac, RealFloat+           , Generic)++newtype BigEndian    a = BE { getBigEndian    :: a }+  deriving ( Eq, Ord, Show, Read, Enum+           , Num, Integral, Fractional, Floating, Real, RealFrac, RealFloat+           , Generic)+ class HasLittleEndian a where   peekLE :: Ptr a -> IO a   pokeLE :: Ptr a -> a -> IO ()@@ -145,8 +156,8 @@  -- | Write a Word16 in big endian format putWord16be :: Ptr Word8 -> Word16 -> IO ()-putWord16be = if byteOrder == BigEndian -              then \p w -> poke (castPtr p) w +putWord16be = if byteOrder == BigEndian+              then \p w -> poke (castPtr p) w               else \p w -> do     poke p               (fromIntegral (shiftr_w16 w 8) :: Word8)     poke (p `plusPtr` 1) (fromIntegral (w)              :: Word8)@@ -407,5 +418,3 @@ shiftl_w32 = shiftL shiftl_w64 = shiftL #endif--

@@ -1,5 +1,5 @@ Name: storable-endian-Version: 0.2.5+Version: 0.2.6 License: BSD3 License-file: LICENSE Copyright: Eugene Kirpichov, 2010