diff --git a/src/Elm/Json.hs b/src/Elm/Json.hs
index 70fc1bf..c11a944 100644
--- a/src/Elm/Json.hs
+++ b/src/Elm/Json.hs
@@ -111,6 +111,8 @@ jsonParserForDef etd =
           where
             tab n s = replicate n ' ' ++ s
             typename = et_name name
+            declLine [_] | TaggedObject tg el <- encodingType = 
+              "    in  " ++  unwords [ "decodeSumTaggedObject", show typename, show tg, show el, dictName, isObjectSetName ]
             declLine [_] = ""
             declLine _   = "    in  " ++ case encodingType of
                            ObjectWithSingleField -> unwords [ "decodeSumObjectWithSingleField ", show typename, dictName]