From 5c03bcea70df9be7236ff3eca7d88fbf05c58895 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Fri, 26 Oct 2012 13:48:45 +0200
Subject: [PATCH] =?UTF-8?q?Fix=20lint=20issue=20in=20Test/=E2=80=A6/THH.hs?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Sorry!
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Michael Hanselmann <hansmi@google.com>
---
htest/Test/Ganeti/THH.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/htest/Test/Ganeti/THH.hs b/htest/Test/Ganeti/THH.hs
index 45c2b298b..90f683c03 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 |]
])
--
GitLab