¿Por qué no puedo obtener Mostrar aquí?¿Por qué no puedo obtener Mostrar aquí?
{-# 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
StandaloneDeriving, very cool. ¡Gracias! –