summaryrefslogtreecommitdiff
path: root/libraries/base/GHC/Unicode.hs
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/GHC/Unicode.hs')
-rw-r--r--libraries/base/GHC/Unicode.hs7
1 files changed, 7 insertions, 0 deletions
diff --git a/libraries/base/GHC/Unicode.hs b/libraries/base/GHC/Unicode.hs
index 9d11b37d0c..6fba91f0e2 100644
--- a/libraries/base/GHC/Unicode.hs
+++ b/libraries/base/GHC/Unicode.hs
@@ -19,6 +19,7 @@
-----------------------------------------------------------------------------
module GHC.Unicode (
+ unicodeVersion,
GeneralCategory (..), generalCategory,
isAscii, isLatin1, isControl,
isAsciiUpper, isAsciiLower,
@@ -36,12 +37,18 @@ import GHC.Real
import GHC.Enum ( Enum (..), Bounded (..) )
import GHC.Ix ( Ix (..) )
import GHC.Num
+import {-# SOURCE #-} Data.Version
-- Data.Char.chr already imports this and we need to define a Show instance
-- for GeneralCategory
import GHC.Show ( Show )
#include "HsBaseConfig.h"
+#include "UnicodeVersion.h"
+
+-- | Version of Unicode standard used by @base@.
+unicodeVersion :: Version
+unicodeVersion = makeVersion UNICODE_VERSION_NUMS
-- | Unicode General Categories (column 2 of the UnicodeData table) in
-- the order they are listed in the Unicode standard (the Unicode