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