Tại sao tôi không thể lấy được Hiển thị ở đây?Tại sao tôi không thể lấy được Hiển thị ở đây?
{-# 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
Độc lậpKhông hoạt động, rất hay. Cảm ơn bạn! –