Fix ShipAdventure after changed onclick handler in Platform

Examples/Applications/ShipAdventure/C2/Apps/ShipAdventure/Images.icl

@@ -166,7 +166,7 @@ sectionImage disabledSections hilite mngmnt zoomed exitLocks hopLocks inventoryM
       = { fill = toSVGColor (if isLocked "black" "white") }
     doorClick :: !Bool !Coord3D !Dir !(Image (a, MapAction SectionStatus)) -> Image (a, MapAction SectionStatus)
     doorClick False c3d dir img = img
-    doorClick _     c3d dir img = img <@< { onclick = \_ (x, _) -> (x, ToggleDoor c3d dir), local = False}
+    doorClick _     c3d dir img = img <@< { onclick = \(x, _) -> (x, ToggleDoor c3d dir), local = False}
 
 sectionImage` :: !(Bool Coord3D [Object ObjectType] [Device] Real (Image a) [Image a] (Image b) (Image (Maps2D, MapAction SectionStatus))
                    (Image d) (Image e) (Image f) (Image g) -> Image (Maps2D, MapAction SectionStatus))
@@ -359,10 +359,10 @@ editSectionImage hilite mngmnt zoomed allDevices network inventoryMap doorDims s
     #! vwally = rect (px 5.0) (px height) <@< { fill    = toSVGColor "white" }
                                           <@< { opacity = 0.1 }
                                           <@< { stroke  = toSVGColor "none" }
-    #! wallyN = hwally <@< {onclick = \_ -> rotateWall floorIdx c N, local = False}
-    #! wallyE = vwally <@< {onclick = \_ -> rotateWall floorIdx c E, local = False}
-    #! wallyW = vwally <@< {onclick = \_ -> rotateWall floorIdx c W, local = False}
-    #! wallyS = hwally <@< {onclick = \_ -> rotateWall floorIdx c S, local = False}
+    #! wallyN = hwally <@< {onclick = rotateWall floorIdx c N, local = False}
+    #! wallyE = vwally <@< {onclick = rotateWall floorIdx c E, local = False}
+    #! wallyW = vwally <@< {onclick = rotateWall floorIdx c W, local = False}
+    #! wallyS = hwally <@< {onclick = rotateWall floorIdx c S, local = False}
     = 'GS'.overlay [ ('GS'.AtMiddleX, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtMiddleY), ('GS'.AtMiddleX, 'GS'.AtTop), ('GS'.AtLeft, 'GS'.AtMiddleY)
               , ('GS'.AtLeft, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtBottom), ('GS'.AtRight, 'GS'.AtBottom)
               ]
@@ -406,5 +406,5 @@ rotateWall m c d (maps, edit)
   rotate Wall = Door
   rotate Door = Open
 
-onClick :: !(MapAction SectionStatus) Int !(!a, MapAction SectionStatus) -> (!a, !MapAction SectionStatus)
-onClick clck _ (m, _) = (m, clck)
+onClick :: !(MapAction SectionStatus) !(!a, MapAction SectionStatus) -> (!a, !MapAction SectionStatus)
+onClick clck (m, _) = (m, clck)