Allowing rebalance to run silently

[ganeti-local] / htools / Ganeti / HTools / QCHelper.hs

diff --git a/htools/Ganeti/HTools/QCHelper.hs b/htools/Ganeti/HTools/QCHelper.hs
index cabf88c..8cd165a 100644 (file)
--- a/htools/Ganeti/HTools/QCHelper.hs
+++ b/htools/Ganeti/HTools/QCHelper.hs
@@ -26,8 +26,8 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
 -}
 
 module Ganeti.HTools.QCHelper
-    ( testSuite
-    ) where
+  ( testSuite
+  ) where
 
 import Test.QuickCheck
 import Language.Haskell.TH
@@ -41,7 +41,7 @@ testSuite tsname tdef = do
   tests <- mapM (\n -> [| (run $(varE n), $(litE . StringL . nameBase $ n)) |])
            tdef
   sigtype <- [t| (String, [(Args -> IO Result, String)]) |]
-  return $ [ SigD fullname sigtype
-           , ValD (VarP fullname) (NormalB (TupE [LitE (StringL tsname),
-                                                  ListE tests])) []
-           ]
+  return [ SigD fullname sigtype
+         , ValD (VarP fullname) (NormalB (TupE [LitE (StringL tsname),
+                                                ListE tests])) []
+         ]