diff --git a/htest/Test/Ganeti/THH.hs b/htest/Test/Ganeti/THH.hs
index 45c2b298bf03598e2d8c3d5b646ea996f4d58a86..90f683c03ed421db548c80c42e5f1144d2a0df4b 100644
--- a/htest/Test/Ganeti/THH.hs
+++ b/htest/Test/Ganeti/THH.hs
@@ -46,7 +46,7 @@ import Test.Ganeti.TestCommon
 -- | Type used to test optional field implementation. Equivalent to
 -- @data TestObj = TestObj { tobjA :: Maybe Int, tobjB :: Maybe Int
 -- }@.
-$(buildObject "TestObj" "tobj" $
+$(buildObject "TestObj" "tobj"
   [ optionalField $ simpleField "a" [t| Int |]
   , optionalNullSerField $ simpleField "b" [t| Int |]
   ])