@@ -1,4 +1,7 @@
1−{-# LANGUAGE DeriveDataTypeable, TypeFamilies, CPP, ViewPatterns #-}
1+{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE TypeFamilies #-}
4+{-# LANGUAGE ViewPatterns #-}
25{-# OPTIONS_HADDOCK hide #-}
36
47-- |
@@ -13,72 +16,69 @@
1316-- Portability : portable
1417
1518module Data.UUID.Types.Internal
16− (UUID(..)
17− ,null
18− ,nil
19− ,fromByteString
20− ,toByteString
21− ,fromString
22− ,toString
23− ,fromText
24− ,toText
25− ,fromWords
26− ,toWords
27− ,toList
28− ,buildFromBytes
29− ,buildFromWords
30− ,fromASCIIBytes
31− ,toASCIIBytes
32− ,fromLazyASCIIBytes
33− ,toLazyASCIIBytes
34− ,UnpackedUUID(..)
35− ,pack
36− ,unpack
19+ ( UUID(..)
20+ , null
21+ , nil
22+ , fromByteString
23+ , toByteString
24+ , fromString
25+ , toString
26+ , fromText
27+ , toText
28+ , fromWords
29+ , toWords
30+ , toList
31+ , buildFromBytes
32+ , buildFromWords
33+ , fromASCIIBytes
34+ , toASCIIBytes
35+ , fromLazyASCIIBytes
36+ , toLazyASCIIBytes
37+ , UnpackedUUID(..)
38+ , pack
39+ , unpack
3740 ) where
3841
39−import Prelude hiding (null)
42+import Prelude hiding (null)
4043
41−import Control.Applicative ((<*>))
42−import Control.DeepSeq (NFData(..))
43−import Control.Monad (liftM2, guard)
44−import Data.Functor ((<$>))
45−import Data.Char
46−import Data.Bits
47−import Data.Hashable
48−import Data.List (elemIndices)
49−import Foreign.Ptr (Ptr)
44+import Control.Applicative ((<*>))
45+import Control.DeepSeq (NFData (..))
46+import Control.Monad (guard, liftM2)
47+import Data.Bits
48+import Data.Char
49+import Data.Functor ((<$>))
50+import Data.Hashable
51+import Data.List (elemIndices)
52+import Foreign.Ptr (Ptr)
5053
5154#if MIN_VERSION_base(4,0,0)
52−import Data.Data
55+import Data.Data
5356#else
54−import Data.Generics.Basics
57+import Data.Generics.Basics
5558#endif
5659
57−import Foreign.Storable
60+import Foreign.Storable
5861
59−import Data.Binary
60−import Data.Binary.Put
61−import Data.Binary.Get
62−import qualified Data.ByteString as B
63−import qualified Data.ByteString.Internal as BI
64−import qualified Data.ByteString.Lazy as BL
65−import qualified Data.ByteString.Unsafe as BU
66−import Data.Text (Text)
67−import qualified Data.Text as T
62+import Data.Binary
63+import Data.Binary.Get
64+import Data.Binary.Put
65+import qualified Data.ByteString as B
66+import qualified Data.ByteString.Internal as BI
67+import qualified Data.ByteString.Lazy as BL
68+import qualified Data.ByteString.Unsafe as BU
69+import Data.Text (Text)
70+import qualified Data.Text as T
6871
69−import Data.UUID.Types.Internal.Builder
72+import Data.UUID.Types.Internal.Builder
7073
71−import System.Random
74+import System.Random
7275
7376
7477-- |The UUID type. A 'Random' instance is provided which produces
7578-- insecure version 4 UUIDs as specified in RFC 4122. The 'Storable' and
7679-- 'Binary' instances are compatible with RFC 4122, storing the fields in
7780-- network order as 16 bytes.
78−data UUID
79− = UUID
80− {-# UNPACK #-} !Word64
81− {-# UNPACK #-} !Word64
81+data UUID = UUID {-# UNPACK #-} !Word64 {-# UNPACK #-} !Word64
8282 deriving (Eq, Ord, Typeable)
8383{-
8484 Prior to uuid-types-1.0.4:
@@ -115,17 +115,17 @@ fromWords w1 w2 w3 w4 = UUID (w32to64 w1 w2) (w32to64 w3 w4)
115115
116116data UnpackedUUID =
117117 UnpackedUUID {
118− time_low :: Word32 -- 0-3
119− , time_mid :: Word16 -- 4-5
118+ time_low :: Word32 -- 0-3
119+ , time_mid :: Word16 -- 4-5
120120 , time_hi_and_version :: Word16 -- 6-7
121− , clock_seq_hi_res :: Word8 -- 8
122− , clock_seq_low :: Word8 -- 9
123− , node_0 :: Word8
124− , node_1 :: Word8
125− , node_2 :: Word8
126− , node_3 :: Word8
127− , node_4 :: Word8
128− , node_5 :: Word8
121+ , clock_seq_hi_res :: Word8 -- 8
122+ , clock_seq_low :: Word8 -- 9
123+ , node_0 :: Word8
124+ , node_1 :: Word8
125+ , node_2 :: Word8
126+ , node_3 :: Word8
127+ , node_4 :: Word8
128+ , node_5 :: Word8
129129 }
130130 deriving (Read, Show, Eq, Ord)
131131