-fth-dec-file outputs invalid case clauses

instance Data.Aeson.Types.Class.ToJSON Language.Haskell.TH.Syntax.Name where
  Data.Aeson.Types.Class.toJSON x
    = \ k_a94l v_a94m
        -> case k_a94l of {
             GHC.Base.Just "" -> GHC.Err.undefined
             GHC.Base.Nothing -> GHC.Err.undefined }
        (GHC.Base.Just "test") "test2"

Edited Mar 10, 2019 by Fabian

To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information