여기에 표시 할 수없는 이유는 무엇입니까?여기에 Show를 가져올 수없는 이유는 무엇입니까?
{-# 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
독립 실행 형, 매우 멋지다. 고맙습니다! –