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