diff options
Diffstat (limited to 'src/Text/Pandoc/UUID.hs')
| -rw-r--r-- | src/Text/Pandoc/UUID.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/UUID.hs b/src/Text/Pandoc/UUID.hs index 12579be90..aa36fcab9 100644 --- a/src/Text/Pandoc/UUID.hs +++ b/src/Text/Pandoc/UUID.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE OverloadedStrings #-} {- | Module : Text.Pandoc.UUID Copyright : Copyright (C) 2010-2021 John MacFarlane @@ -18,11 +19,12 @@ import Data.Word import System.Random (RandomGen, randoms) import Text.Printf (printf) import Text.Pandoc.Class.PandocMonad +import qualified GHC.Show data UUID = UUID Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 Word8 -instance Show UUID where +instance GHC.Show.Show UUID where show (UUID a b c d e f g h i j k l m n o p) = "urn:uuid:" ++ printf "%02x" a ++ |