diff --git a/htest/Test/Ganeti/Block/Drbd/Parser.hs b/htest/Test/Ganeti/Block/Drbd/Parser.hs
index 19d6542779febd1ebfccfc884860b62a1cc2c5be..7b69a115d29fd686250169ed7fff41ccceb631c2 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 c066a22d3011c677129d22c1d4b0225ea88441b6..185e331b870a289bff278559c1952ce173b203c9 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]))