@@ -48,8 +48,8 @@ r2d2 :: Droid
4848r2d2 = Droid
4949 { name = "R2-D2"
5050 , friends = [upcast luke]
51− , appearsIn = [NEWHOPE]
52− , primaryFunction = "destroy"
51+ , appearsIn = [NEWHOPE, EMPIRE, JEDI]
52+ , primaryFunction = "repair ships"
5353 }
5454
5555c3po :: Droid
@@ -57,7 +57,7 @@ c3po = Droid
5757 { name = "C3PO"
5858 , friends = [upcast r2d2, upcast luke]
5959 , appearsIn = [NEWHOPE, EMPIRE, JEDI]
60− , primaryFunction = "exist"
60+ , primaryFunction = "protocol and human relations"
6161 }
6262
6363getName :: HasField r "name" a => r -> a