git.iko.soy/generic-lens
on master help sign in
Fix some discrepancies in the star wars universe
399e71dArian van Putten
examples/StarWars.hs+3−3
compare with master
unifiedsplit
@@ -48,8 +48,8 @@ r2d2 :: Droid
48r2d2 = Droid
48r2d2 = Droid
49 { name = "R2-D2"
49 { name = "R2-D2"
50 , friends = [upcast luke]
50 , friends = [upcast luke]
51− , appearsIn = [NEWHOPE]
51+ , appearsIn = [NEWHOPE, EMPIRE, JEDI]
52− , primaryFunction = "destroy"
52+ , primaryFunction = "repair ships"
53 }
53 }
54
54
55c3po :: Droid
55c3po :: Droid
@@ -57,7 +57,7 @@ c3po = Droid
57 { name = "C3PO"
57 { name = "C3PO"
58 , friends = [upcast r2d2, upcast luke]
58 , friends = [upcast r2d2, upcast luke]
59 , appearsIn = [NEWHOPE, EMPIRE, JEDI]
59 , appearsIn = [NEWHOPE, EMPIRE, JEDI]
60− , primaryFunction = "exist"
60+ , primaryFunction = "protocol and human relations"
61 }
61 }
62
62
63getName :: HasField r "name" a => r -> a
63getName :: HasField r "name" a => r -> a