1cf04b1 · typeable/uuid

uuid-types/Data/UUID/Types.hs+2

compare with master

unifiedsplit

@@ -18,6 +18,8 @@ See <http://tools.ietf.org/html/rfc4122> for the specification.

18module Data.UUID.Types(UUID

19 ,toString

20 ,fromString

21+ ,toText

22+ ,fromText

21 ,toASCIIBytes

23 ,toASCIIBytes

22 ,fromASCIIBytes

24 ,fromASCIIBytes

23 ,toLazyASCIIBytes

25 ,toLazyASCIIBytes

uuid-types/Data/UUID/Types/Internal.hs+10

@@ -20,6 +20,8 @@ module Data.UUID.Types.Internal

20 ,toByteString

21 ,fromString

22 ,toString

23+ ,fromText

24+ ,toText

23 ,fromWords

25 ,fromWords

24 ,toWords

26 ,toWords

25 ,toList

27 ,toList

@@ -61,6 +63,8 @@ import qualified Data.ByteString as B

61import qualified Data.ByteString.Internal as BI

63import qualified Data.ByteString.Internal as BI

62import qualified Data.ByteString.Lazy as BL

64import qualified Data.ByteString.Lazy as BL

63import qualified Data.ByteString.Unsafe as BU

65import qualified Data.ByteString.Unsafe as BU

66+import Data.Text (Text)

67+import qualified Data.Text as T

64

68

65import Data.UUID.Types.Internal.Builder

69import Data.UUID.Types.Internal.Builder

66

70

@@ -307,6 +311,12 @@ toString (UUID w0 w1 w2 w3) = hexw w0 $ hexw' w1 $ hexw' w2 $ hexw w3 ""

307 hexn :: Word32 -> Int -> Char

311 hexn :: Word32 -> Int -> Char

308 hexn w r = intToDigit $ fromIntegral ((w `shiftR` r) .&. 0xf)

312 hexn w r = intToDigit $ fromIntegral ((w `shiftR` r) .&. 0xf)

309

313

314+fromText :: Text -> Maybe UUID

315+fromText = fromString . T.unpack

316+

317+toText :: UUID -> Text

318+toText = T.pack . toString

319+

310-- | Convert a UUID into a hyphentated string using lower-case letters, packed

320-- | Convert a UUID into a hyphentated string using lower-case letters, packed

311-- as ASCII bytes into `B.ByteString`.

321-- as ASCII bytes into `B.ByteString`.

312--

322--

uuid-types/uuid-types.cabal+2−1

@@ -32,7 +32,8 @@ Library

32 bytestring >= 0.9 && < 0.11,

33 deepseq >= 1.3 && < 1.5,

34 hashable (>= 1.1.1.0 && < 1.2.0) || (>= 1.2.1 && < 1.3),

35− random >= 1.0.1 && < 1.2

35+ random >= 1.0.1 && < 1.2,

36+ text >= 1 && < 1.3

36

37

37 Exposed-Modules:

38 Exposed-Modules:

38 Data.UUID.Types

39 Data.UUID.Types

uuid/Data/UUID.hs+2

@@ -26,6 +26,8 @@ MAC address and current system time in "Data.UUID.V1".

26module Data.UUID(UUID

27 ,toString

28 ,fromString

29+ ,toText

30+ ,fromText

29 ,toASCIIBytes

31 ,toASCIIBytes

30 ,fromASCIIBytes

32 ,fromASCIIBytes

31 ,toLazyASCIIBytes

33 ,toLazyASCIIBytes

uuid/uuid.cabal+1

@@ -33,6 +33,7 @@ Library

33 network-info == 0.2.*,

34 random >= 1.0.1 && < 1.2,

35 time >= 1.1 && < 1.6,

36+ text >= 1 && < 1.3,

36 uuid-types >= 1.0 && < 2

37 uuid-types >= 1.0 && < 2

37

38

38 Exposed-Modules:

39 Exposed-Modules: