Resurrect flag to enable/disable translations

wjt · May 23, 2018 · 5606783 · 5606783
1 parent e3a518a
commit 5606783
Show file tree

Hide file tree

Showing 3 changed files with 34 additions and 7 deletions.
diff --git a/bustle.cabal b/bustle.cabal
@@ -65,6 +65,10 @@ Source-Repository head
   Type:           git
   Location:       git://anongit.freedesktop.org/bustle
 
+Flag hgettext
+  Description:    Enable translations. Since there are no translations this is currently rather pointless.
+  Default:        True
+
 Flag InteractiveTests
   Description:    Build interactive test programs
   Default:        False
@@ -117,14 +121,20 @@ Executable bustle
                , glib
                , gio
                , gtk3
-               , hgettext >= 0.1.5
                , mtl >= 2.2.1
                , pango
                , pcap
                , process
-               , setlocale
                , text
                , time
+  if flag(hgettext)
+    Build-Depends: hgettext >= 0.1.5
+                 , setlocale
+    hs-source-dirs: .
+                  , src-hgettext
+  else
+    hs-source-dirs: .
+                  , src-no-hgettext
 
 Executable test-monitor
   if flag(InteractiveTests)
@@ -150,13 +160,12 @@ Executable test-monitor
                -- 0.13.6 doesn't compile with GCC 5: https://github.com/gtk2hs/gtk2hs/issues/104
                , gtk3 >= 0.13.7
                , glib
-               , hgettext
                , mtl
                , pango
                , pcap
-               , setlocale
                , text
 
+
 Executable dump-messages
   if flag(InteractiveTests)
     buildable: True
@@ -219,8 +228,14 @@ Test-suite test-renderer
                  , mtl
                  , text
                  , pango
-                 , hgettext
-                 , setlocale
                  , test-framework
                  , test-framework-hunit
                  , HUnit
+    if flag(hgettext)
+        Build-Depends: hgettext >= 0.1.5
+                     , setlocale
+        hs-source-dirs: .
+                      , src-hgettext
+    else
+        hs-source-dirs: .
+                      , src-no-hgettext
diff --git a/Bustle/Translation.hs → src-hgettext/Bustle/Translation.hs b/Bustle/Translation.hs → src-hgettext/Bustle/Translation.hs
@@ -20,6 +20,6 @@ initTranslation = do
     textDomain (Just domain)
     return ()
 
--- FIXME: I do not like this unsafePerformIO one little bit.
 __ :: String -> String
+-- FIXME: I do not like this unsafePerformIO one little bit.
 __ = unsafePerformIO . getText
diff --git a/src-no-hgettext/Bustle/Translation.hs b/src-no-hgettext/Bustle/Translation.hs
@@ -0,0 +1,12 @@
+module Bustle.Translation
+    (
+      initTranslation
+    , __
+    )
+where
+
+initTranslation :: IO ()
+initTranslation = return ()
+
+__ :: String -> String
+__ = id