gistfile1.txt

data Entity=Entity{name::String,pos::Vec3f}
data Trigger=Trigger{name::String,num::Int}

class HasName x where
    nameOf :: x -> String
instance HasName Entity where
  nameOf Entity{name=x}=x
instance HasName Trigger where
  nameOf Trigger{name=x}=x

test_struct::String
test_struct =let
  ent = Entity "foo" (Vec3 0.0 0.5 1.0)
  trigger= Trigger"bar" 15
  in
     nameOf ent ++ nameOf trigger
     
-- result:  "foobar"