Added changeCarOwner example invocation

Signed-off-by: Allison Irvin <allison.irvin@au1.ibm.com>

Author: airvin

examples/Fabcar.hs

@@ -4,6 +4,7 @@
 -- peer chaincode invoke -n mycc -c '{"Args":["initLedger"]}' -C myc
 -- peer chaincode invoke -n mycc -c '{"Args":["createCar", "CAR10", "Ford", "Falcon", "White", "Al"]}' -C myc
 -- peer chaincode invoke -n mycc -c '{"Args":["queryCar", "CAR10"]}' -C myc
+-- peer chaincode invoke -n mycc -c '{"Args":["changeCarOwner", "CAR10", "Nick"]}' -C myc
 
 module Fabcar where
 
@@ -204,11 +205,11 @@ changeCarOwner s params = if Prelude.length params == 2
         else
 -- Unmarshal the car
           let maybeCar = decode (LBS.fromStrict response) :: Maybe Car
-              carOwner = head $ tail params
+              newOwner = params !! 1
           in  case maybeCar of
                 Nothing -> pure $ errorPayload "Error decoding car"
                 Just oldCar ->
-                  let newCar  = carWithNewOwner oldCar carOwner
+                  let newCar  = carWithNewOwner oldCar newOwner
                       carJson = LBS.toStrict $ encode newCar
                   in  do
                         ee <- putState s (head params) carJson

examples/Marbles.hs

@@ -121,7 +121,7 @@ transferMarble s params = if Prelude.length params == 2
         else
           -- Unmarshal the marble
           let maybeMarble = decode (LBS.fromStrict response) :: Maybe Marble
-              marbleOwner = head $ tail params
+              marbleOwner = params !! 1
           in  case maybeMarble of
                 Nothing -> pure $ errorPayload "Error decoding marble"
                 Just oldMarble ->
@@ -161,10 +161,10 @@ readMarble s params = if Prelude.length params == 1
 
 parseMarble :: [Text] -> Marble
 parseMarble params = Marble { objectType = "marble"
-                            , name       = head params
-                            , color      = head $ tail params
-                            , size       = head $ tail $ tail params
-                            , owner      = head $ tail $ tail $ tail params
+                            , name       = params !! 0
+                            , color      = params !! 1
+                            , size       = params !! 2 
+                            , owner      = params !! 3
                             }
 
 marbleWithNewOwner :: Text -> Marble -> Marble

examples/Sacc.hs

@@ -30,7 +30,7 @@ initFunc s =
   in  if Prelude.length initArgs == 2
         then
           let response =
-                putState s (head initArgs) (encodeUtf8 $ head $ tail initArgs)
+                putState s (head initArgs) (encodeUtf8 $ initArgs !! 1)
           in  do
                 e <- response :: IO (Either Error ByteString)
                 case e of
@@ -50,7 +50,7 @@ invokeFunc s =
 set :: DefaultChaincodeStub -> [Text] -> IO Pb.Response
 set s params = if Prelude.length params == 2
   then
-    let response = putState s (head params) (encodeUtf8 $ head $ tail params)
+    let response = putState s (head params) (encodeUtf8 $ params !! 1)
     in  do
           e <- response :: IO (Either Error ByteString)
           case e of