fork download
  1. class Named t where
  2. name :: t -> String
  3.  
  4. data Dog = Dog {name'::String}
  5.  
  6. instance Named Dog where
  7. name = name'
  8.  
  9. main = do
  10. print $ name $ Dog "Sharik"
Success #stdin #stdout 0.02s 3544KB
stdin
Standard input is empty
stdout
"Sharik"