मैं यहां क्यों नहीं दिखा सकता?मैं यहां क्यों नहीं दिखा सकता?
{-# 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
स्टैंडअलोन डाइविंग, बहुत अच्छा। धन्यवाद! –