Use cbor_hex and file_path over cbor and path

Author: adithyaov

app/App.hs

@@ -89,9 +89,9 @@ scripts:
         # error out with the expected script hash.
         hash: "6bfbd8fc6567153cbaacdcd0ee9fff9e69ba2a0eb62c129b303ade19"
         source:
-          # The source of the substitution script. This can either be a "path"
-          # or a "cbor".
-          cbor: "4e4d01000033222220051200120011"
-          # path: "local-config/policy-debug.plutus"
+          # The source of the substitution script. This can either be a
+          # "file_path" or a "cbor_hex".
+          cbor_hex: "4e4d01000033222220051200120011"
+          # file_path: "local-config/policy-debug.plutus"
 
 |]

dev-local/Main.hs

@@ -127,12 +127,12 @@ tracingYamlContents scriptsDirName = do
       - name: "Local Policy"
         hash: "#{policyDebugPolicyId}"
         source:
-          path: "#{scriptsDirName}/policy-debug.plutus"
+          file_path: "#{scriptsDirName}/policy-debug.plutus"
 #{validatorPrefix}
       - name: "Local Validator"
         hash: "#{validatorDebugPolicyId}"
         source:
-          path: "#{scriptsDirName}/validator-debug.plutus"
+          file_path: "#{scriptsDirName}/validator-debug.plutus"
 |]
 
 escrowYamlContents :: IO String
@@ -146,7 +146,7 @@ escrowYamlContents = do
       - name: "Escrow"
         hash: "#{escrowDebugPolicyId}"
         source:
-          path: "./escrow-debug.plutus"
+          file_path: "./escrow-debug.plutus"
 |]
 
 createScriptsYaml :: IO ()

lib/PSR/ConfigMap.hs

@@ -41,8 +41,8 @@ import System.FilePath (dropFileName, (</>))
  or another file on disk.
 -}
 data ScriptSource
-    = SCbor C.TextEnvelope
-    | SPath FilePath
+    = SCborHex C.TextEnvelope
+    | SFilePath FilePath
     deriving (Show, Eq)
 
 $(deriveJSONSimpleSum "S" ''ScriptSource)
@@ -144,12 +144,12 @@ readScriptFile scriptYamlDir scrutScriptHash (ix, ScriptDetails{..}) = do
                 ]
 
     rsScriptFileContent <- case sdSource of
-        SPath path' -> do
+        SFilePath path' -> do
             let path = scriptYamlDir </> path'
             relativePath <- liftIO $ makeRelativeToCurrentDirectory path
             liftIO $ putStrLn $ "Reading script from file: " <> relativePath
             withExceptT show $ ExceptT $ C.readFileTextEnvelopeAnyOf scriptTypes (C.File relativePath)
-        SCbor content ->
+        SCborHex content ->
             withExceptT show $ except $ C.deserialiseFromTextEnvelopeAnyOf scriptTypes content
 
     let expectedScriptHash =