From 3516b09a5396972e293919cdcd1a4cabd51c5146 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 6 Dec 2012 09:58:21 +0100
Subject: [PATCH] Fix build breakage in Jobs.hs test code
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Commit 3bdbe4b3 (βJobs.hs: move OpStatus and JobStatus ADTs to
Types.hsβ) removed the TemplateHaskell language pragma from
htest/Test/Ganeti/Jobs.hs due to a hlint warning, but that is bad: it
means the testSuite call is no longer interpreted as a splice, so it results in:
Parse error: naked expression at top level
With newer GHCs. To fix this, we restore the pragma, and add an hlint
ignore.
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
htest/Test/Ganeti/Jobs.hs | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/htest/Test/Ganeti/Jobs.hs b/htest/Test/Ganeti/Jobs.hs
index 7131581d9..639178030 100644
--- a/htest/Test/Ganeti/Jobs.hs
+++ b/htest/Test/Ganeti/Jobs.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+
{-| Unittests for ganeti-htools.
-}
@@ -27,6 +29,8 @@ module Test.Ganeti.Jobs (testJobs) where
import Test.Ganeti.TestHelper
+{-# ANN module "HLint: ignore Unused LANGUAGE pragma" #-}
+
testSuite "Jobs"
[
]
--
GitLab