@@ -6,13 +6,13 @@
8-- Module : Data.UUID.Types.Internal
8-- Module : Data.UUID.Types.Internal
9+-- Copyright : (c) 2017-2018 Herbert Valerio Riedel
9−-- Copyright : (c) 2008-2009, 2012 Antoine Latter
10+-- (c) 2008-2009, 2012 Antoine Latter
10-- (c) 2009 Mark Lentczner
11-- (c) 2009 Mark Lentczner
12-- License : BSD-style
13-- License : BSD-style
14−-- Maintainer : aslatter@gmail.com
15+-- Maintainer : hvr@gnu.org
15−-- Stability : experimental
16-- Portability : portable
16-- Portability : portable
18module Data.UUID.Types.Internal
18module Data.UUID.Types.Internal
@@ -77,8 +77,8 @@ import System.Random
79-- |The UUID type. A 'Random' instance is provided which produces
79-- |The UUID type. A 'Random' instance is provided which produces
80−-- insecure version 4 UUIDs as specified in RFC 4122. The 'Storable' and
80+-- insecure version 4 UUIDs as specified in <http://tools.ietf.org/html/rfc4122 RFC 4122>. The 'Storable' and
81−-- 'Binary' instances are compatible with RFC 4122, storing the fields in
81+-- 'Binary' instances are compatible with <http://tools.ietf.org/html/rfc4122 RFC 4122>, storing the fields in
82-- network order as 16 bytes.
82-- network order as 16 bytes.
83data UUID = UUID {-# UNPACK #-} !Word64 {-# UNPACK #-} !Word64
83data UUID = UUID {-# UNPACK #-} !Word64 {-# UNPACK #-} !Word64
84 deriving (Eq, Ord, Typeable)
84 deriving (Eq, Ord, Typeable)
@@ -273,7 +273,7 @@ null = (== nil)
273 -- null (UUID 0 0 0 0) = True
273 -- null (UUID 0 0 0 0) = True
274 -- null _ = False
274 -- null _ = False
276−-- |The nil UUID, as defined in RFC 4122.
276+-- |The nil UUID, as defined in <http://tools.ietf.org/html/rfc4122 RFC 4122>.
277-- It is a UUID of all zeros. @'null' u@ iff @'u' == 'nil'@.
277-- It is a UUID of all zeros. @'null' u@ iff @'u' == 'nil'@.
278nil :: UUID
278nil :: UUID
279nil = UUID 0 0
279nil = UUID 0 0