ここで表示するのはなぜですか?なぜここにショーを派生させることができないのですか?
{-# LANGUAGE ExistentialQuantification #-}
data Obj = forall a. (Show a) => Item_Obj {get :: a, rest :: Obj} | No_Obj deriving Show
xs :: Obj
xs = Item_Obj 1 $ Item_Obj "foo" $ Item_Obj 'c' $ No_Obj
main :: IO()
main = putStrLn . show $ xs
スタンドアロン、非常にクールです。ありがとうございました! –