LGTM
On Mon, Mar 11, 2013 at 4:23 PM, Iustin Pop <[email protected]> wrote: > This is in preparation for using OverloadedString extensions in this > file, which conflicts with hlint 1.8.28's handling of annotations. > > Signed-off-by: Iustin Pop <[email protected]> > --- > test/hs/Test/Ganeti/Objects.hs | 14 ++++++-------- > 1 file changed, 6 insertions(+), 8 deletions(-) > > diff --git a/test/hs/Test/Ganeti/Objects.hs > b/test/hs/Test/Ganeti/Objects.hs > index 51e2575..1bcbbb7 100644 > --- a/test/hs/Test/Ganeti/Objects.hs > +++ b/test/hs/Test/Ganeti/Objects.hs > @@ -57,8 +57,6 @@ import Ganeti.Objects as Objects > import Ganeti.JSON > import Ganeti.Types > > -{-# ANN module "HLint: ignore Use camelCase" #-} > - > -- * Arbitrary instances > > $(genArbitrary ''PartialNDParams) > @@ -300,8 +298,8 @@ prop_Config_serialisation = > -- networks and their Python decoded, validated and re-encoded version. > -- For the technical background of this unit test, check the documentation > -- of "case_py_compat_types" of test/hs/Test/Ganeti/Opcodes.hs > -case_py_compat_networks :: HUnit.Assertion > -case_py_compat_networks = do > +casePyCompatNetworks :: HUnit.Assertion > +casePyCompatNetworks = do > let num_networks = 500::Int > networks <- genSample (vectorOf num_networks genValidNetwork) > let networks_with_properties = map getNetworkProperties networks > @@ -349,8 +347,8 @@ getNetworkProperties net = > > -- | Tests the compatibility between Haskell-serialized node groups and > their > -- python-decoded and encoded version. > -case_py_compat_nodegroups :: HUnit.Assertion > -case_py_compat_nodegroups = do > +casePyCompatNodegroups :: HUnit.Assertion > +casePyCompatNodegroups = do > let num_groups = 500::Int > groups <- genSample (vectorOf num_groups genNodeGroup) > let serialized = J.encode groups > @@ -417,6 +415,6 @@ testSuite "Objects" > , 'prop_Network_serialisation > , 'prop_Node_serialisation > , 'prop_Config_serialisation > - , 'case_py_compat_networks > - , 'case_py_compat_nodegroups > + , 'casePyCompatNetworks > + , 'casePyCompatNodegroups > ] > -- > 1.8.1.3 > >
