From d5af1f95cb46a9900799ac6f927e28d3393393ad Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Mon, 3 Dec 2012 11:19:39 +0100
Subject: [PATCH] Remove unused THH function 'saveLuxiField'
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This was deprecated via commit 88609f00, β€œSwitch Luxi TH code from
simple to custom fields”.

Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
 htools/Ganeti/THH.hs | 5 -----
 1 file changed, 5 deletions(-)

diff --git a/htools/Ganeti/THH.hs b/htools/Ganeti/THH.hs
index 093d9c9d3..2fb5084d5 100644
--- a/htools/Ganeti/THH.hs
+++ b/htools/Ganeti/THH.hs
@@ -687,11 +687,6 @@ genLuxiOp name cons = do
                   cons
   return $ declD:save_decs ++ req_defs
 
--- | Generates the \"save\" expression for a single luxi parameter.
-saveLuxiField :: Name -> SimpleField -> Q Exp
-saveLuxiField fvar (_, qt) =
-    [| JSON.showJSON $(varE fvar) |]
-
 -- | Generates the \"save\" clause for entire LuxiOp constructor.
 saveLuxiConstructor :: Constructor -> Q Clause
 saveLuxiConstructor (sname, fields) = do
-- 
GitLab