Make text-icu benchmark optional via flag

Author: harendra-kumar

benchmark/Benchmark.hs

@@ -17,7 +17,9 @@ import           Control.DeepSeq     (NFData)
 import           Criterion.Main      (Benchmark, bench, bgroup, defaultMain, nf)
 import           Data.Text           (Text)
 import qualified Data.Text           as T
+#ifdef BENCH_ICU
 import qualified Data.Text.ICU       as TI
+#endif
 import qualified Data.Text.Normalize as UT
 import           Path                (Dir, Path, Rel, mkRelDir, toFilePath,
                                       (</>))
@@ -26,8 +28,12 @@ import           System.FilePath     (dropExtensions, takeFileName)
 
 implementations :: [(String, Text -> Text)]
 implementations =
-    [ ("text-icu"           , TI.normalize TI.NFD)
-    , ("unicode-transforms" , UT.normalize UT.NFD)
+    [
+#ifdef BENCH_ICU
+    ("text-icu"           , TI.normalize TI.NFD)
+    ,
+#endif
+      ("unicode-transforms" , UT.normalize UT.NFD)
     ]
 
 dataDir :: Path Rel Dir

unicode-transforms.cabal

@@ -38,6 +38,11 @@ extra-source-files:
   unicode-data/README.md
   unicode-data/ucd/NormalizationTest.txt
 
+flag bench-icu
+  description: Use text-icu for benchmark comparison
+  manual: True
+  default: False
+
 library
   default-language:    Haskell98
   ghc-options:         -Wall
@@ -95,8 +100,11 @@ Benchmark bench
                        , path
                        , path-io
                        , text
-                       , text-icu >= 0.6.2.1
                        , unicode-transforms
+  if flag(bench-icu)
+    cpp-options: -DBENCH_ICU
+    build-depends:
+        text-icu >= 0.6.2.1
 
 source-repository head
   type:     git