diff --git a/htools/Ganeti/THH.hs b/htools/Ganeti/THH.hs
index 1dc5533ad51e09974245c338db9beda2a58e8ade..21c5d1757690a79cdf34fe3abc859c1aca868e92 100644
--- a/htools/Ganeti/THH.hs
+++ b/htools/Ganeti/THH.hs
@@ -146,10 +146,6 @@ loadFn (Field { fieldIsContainer = True }) expr = [| $expr >>= readContainer |]
 loadFn (Field { fieldRead = Just readfn }) expr = [| $expr >>= $readfn |]
 loadFn _ expr = expr
 
-saveFn :: Field -> Q Exp -> Q Exp
-saveFn (Field { fieldIsContainer = True }) expr = [| showContainer $expr |]
-saveFn (Field { fieldRead = Just readfn }) expr = [| $readfn $expr |]
-saveFn _ expr = expr
 
 -- * Common field declarations