Further hlint fixes

[ganeti-local] / htest / Test / Ganeti / JSON.hs

diff --git a/htest/Test/Ganeti/JSON.hs b/htest/Test/Ganeti/JSON.hs
index 6a42fd7..6279520 100644 (file)
--- a/htest/Test/Ganeti/JSON.hs
+++ b/htest/Test/Ganeti/JSON.hs
@@ -38,22 +38,22 @@ import Test.Ganeti.TestCommon
 import qualified Ganeti.BasicTypes as BasicTypes
 import qualified Ganeti.JSON as JSON
 
-prop_JSON_toArray :: [Int] -> Property
-prop_JSON_toArray intarr =
+prop_toArray :: [Int] -> Property
+prop_toArray intarr =
   let arr = map J.showJSON intarr in
   case JSON.toArray (J.JSArray arr) of
     BasicTypes.Ok arr' -> arr ==? arr'
     BasicTypes.Bad err -> failTest $ "Failed to parse array: " ++ err
 
-prop_JSON_toArrayFail :: Int -> String -> Bool -> Property
-prop_JSON_toArrayFail i s b =
+prop_toArrayFail :: Int -> String -> Bool -> Property
+prop_toArrayFail i s b =
   -- poor man's instance Arbitrary JSValue
   forAll (elements [J.showJSON i, J.showJSON s, J.showJSON b]) $ \item ->
   case JSON.toArray item of
-    BasicTypes.Bad _ -> property True
+    BasicTypes.Bad _ -> passTest
     BasicTypes.Ok result -> failTest $ "Unexpected parse, got " ++ show result
 
 testSuite "JSON"
-          [ 'prop_JSON_toArray
-          , 'prop_JSON_toArrayFail
+          [ 'prop_toArray
+          , 'prop_toArrayFail
           ]