fix shadowing error in encode generation

CSchank · Jul 6, 2019 · 0ea1d4f · 0ea1d4f
1 parent cfe2454
commit 0ea1d4f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/package.yaml b/package.yaml
@@ -1,5 +1,5 @@
 name:                petri-app-land
-version:             0.1.12.1
+version:             0.1.12.2
 github:              "cschank/petri-app-land"
 license:             BSD3
 author:              "Christopher William Schankula"

diff --git a/src/Generate/Codec.hs b/src/Generate/Codec.hs
@@ -66,15 +66,18 @@ generateEncoder l (CustomT name edts) =
                             ,T.concat ["        tConcat[fst",indtTxt,"Txt,\"",delim,"\",snd",indtTxt,"Txt,\"",delim,"\",thd",indtTxt,"Txt]"]
                             ]
         encodeEt indt (ListT (et, etn, etd), n, _) =
+            let
+              indtTxt = T.pack $ show indt
+            in
             indtTxts indt   [T.concat[n, "Txt ="]
                             ,"    let"
                             ,T.concat["        encode",n,"_ _ (str",T.pack $ show indt,",",n,"List) ="]
                             ,T.concat["            case ",n,"List of"]
-                            ,T.concat["                ",etn," " .:. " rest ->"]
+                            ,T.concat["                ",etn," " .:. " rest",indtTxt," ->"]
                             ,"                    let"] ++
                             (encodeEt (indt+6) (et, etn, etd)) ++
             indtTxts indt   ["                    in"
-                            ,T.concat["                        (tConcat [str",T.pack $ show indt,",\"",delim,"\",",etn,"Txt], rest)"]
+                            ,T.concat["                        (tConcat [str",T.pack $ show indt,",\"",delim,"\",",etn,"Txt], rest",indtTxt,")"]
                             ,T.concat["                [] -> (str",T.pack $ show indt,",",n,"List)"]
                             ,T.concat["        encode",n," ls ="]
                             ,T.concat["            lFoldl encode",n,"_ (\"\",ls) (lRange 0 (lLength ",n,"))"]