From 39573352a5a0a1c8241a6ce438b00b112224bb24 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Tue, 20 Nov 2012 19:00:13 +0100
Subject: [PATCH] Fix some more hlint warnings
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Sorry…

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Helga Velroyen <helgav@google.com>
---
 htest/Test/Ganeti/Block/Drbd/Parser.hs | 2 ++
 htest/Test/Ganeti/Types.hs             | 6 ++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/htest/Test/Ganeti/Block/Drbd/Parser.hs b/htest/Test/Ganeti/Block/Drbd/Parser.hs
index 19d654277..7b69a115d 100644
--- a/htest/Test/Ganeti/Block/Drbd/Parser.hs
+++ b/htest/Test/Ganeti/Block/Drbd/Parser.hs
@@ -36,6 +36,8 @@ import Data.Text (pack)
 import Ganeti.Block.Drbd.Parser (drbdStatusParser, commaIntParser)
 import Ganeti.Block.Drbd.Types
 
+{-# ANN module "HLint: ignore Use camelCase" #-}
+
 -- | Function for testing whether a file is parsed correctly.
 testFile :: String -> DRBDStatus -> Assertion
 testFile fileName expectedContent = do
diff --git a/htest/Test/Ganeti/Types.hs b/htest/Test/Ganeti/Types.hs
index c066a22d3..185e331b8 100644
--- a/htest/Test/Ganeti/Types.hs
+++ b/htest/Test/Ganeti/Types.hs
@@ -43,6 +43,8 @@ import Test.Ganeti.TestCommon
 import Ganeti.BasicTypes
 import Ganeti.Types as Types
 
+{-# ANN module "HLint: ignore Use camelCase" #-}
+
 -- * Arbitrary instance
 
 instance (Arbitrary a, Ord a, Num a, Show a) =>
@@ -102,7 +104,7 @@ prop_Positive_fail (QuickCheck.NonNegative i) =
              "' from negative or zero value " ++ show i
 
 -- | Tests building non-empty lists.
-prop_NonEmpty_pass :: QuickCheck.NonEmptyList [Char] -> Property
+prop_NonEmpty_pass :: QuickCheck.NonEmptyList String -> Property
 prop_NonEmpty_pass (QuickCheck.NonEmpty xs) =
   case mkNonEmpty xs of
     Bad msg -> failTest $ "Fail to build non-empty list: " ++ msg
@@ -110,7 +112,7 @@ prop_NonEmpty_pass (QuickCheck.NonEmpty xs) =
 
 -- | Tests building positive numbers.
 case_NonEmpty_fail :: Assertion
-case_NonEmpty_fail = do
+case_NonEmpty_fail =
   assertEqual "building non-empty list from an empty list"
     (Bad "Received empty value for non-empty list") (mkNonEmpty ([]::[Int]))
 
-- 
GitLab