system-uuid 1.3.1 → 1.4.0
raw patch · 2 files changed
+7/−4 lines, 2 files
Files
- Data/UUID.hs +4/−2
- system-uuid.cabal +3/−2
Data/UUID.hs view
@@ -1,4 +1,5 @@-+{-# LANGUAGE DeriveDataTypeable+ #-} {-| The 'UUID' datatype. -} @@ -13,6 +14,7 @@ import Data.Binary.Put import Data.Binary.Get import Data.Bits+import Data.Typeable import Foreign.C import Foreign.ForeignPtr import Foreign@@ -34,7 +36,7 @@ data UUID = UUID !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8 !Word8- deriving (Eq, Ord)+ deriving (Eq, Ord, Typeable) instance Show UUID where show (UUID x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 xA xB xC xD xE xF) = printf formatUUID x0 x1 x2 x3 x4 x5 x6 x7 x8 x9 xA xB xC xD xE xF
system-uuid.cabal view
@@ -1,5 +1,5 @@ name : system-uuid-version : 1.3.1+version : 1.4.0 category : System license : BSD3 license-file : LICENSE@@ -12,7 +12,7 @@ contact the author if your platform is not supported. -cabal-version : >= 1.2+cabal-version : >= 1.2.3 build-type : Simple extra-source-files : README ACKNOWLEDGEMENTS@@ -56,5 +56,6 @@ extensions : ForeignFunctionInterface TemplateHaskell PatternGuards+ DeriveDataTypeable CPP