Merge branch 'no-hgettext' into 'master'

Setup.hs: Don’t import Gettext.hs without hgettext

See merge request bustle/bustle!14

3 files changed, 16 insertions, 2 deletions

diff --git a/Bustle/UI.hs b/Bustle/UI.hs
index 28ede19..6666c72 100644
--- a/Bustle/UI.hs
+++ b/Bustle/UI.hs
@@ -487,7 +487,8 @@ emptyWindow = do
   subtitle <- getW castToLabel "headerSubtitle"
   spinner  <- getW castToSpinner "headerSpinner"
 
-  [openItem, openTwoItem] <- mapM (getW castToMenuItem) ["open", "openTwo"]
+  openItem <- getW castToMenuItem "open"
+  openTwoItem <- getW castToMenuItem "openTwo"
   recordSessionItem <- getW castToMenuItem "recordSession"
   recordSystemItem <- getW castToMenuItem "recordSystem"
   recordAddressItem <- getW castToMenuItem "recordAddress"
diff --git a/Setup.hs b/Setup.hs
index dd86bba..50e7b54 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,4 +1,8 @@
+{-# LANGUAGE CPP #-}
 {-# OPTIONS_GHC -Wall #-}
+
+#if defined(VERSION_hgettext)
+
 import System.FilePath ( (</>), (<.>) )
 
 import Distribution.PackageDescription
@@ -92,3 +96,12 @@ generateModule pkg lbi =
     tar = GetText.targetDataDir lbi
 
 -- Cargo-culted from hgettext
+
+#else
+
+import Distribution.Simple
+
+main :: IO ()
+main = defaultMain
+
+#endif
diff --git a/bustle.cabal b/bustle.cabal
index a2ebf77..e791803 100644
--- a/bustle.cabal
+++ b/bustle.cabal
@@ -69,7 +69,7 @@ Source-Repository head
 
 Flag hgettext
   Description:    Enable translations. Since there are no translations this is currently rather pointless.
-  Default:        True
+  Default:        False
 
 Flag InteractiveTests
   Description:    Build interactive test programs