Neatened up function declarations

00a56b7c · pm3g19 · 1cbf18b2 · 00a56b7c
Commit 00a56b7c authored Apr 26, 2021 by pm3g19
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

Eval.hs Eval.hs +1 -1

No files found.
--- a/Eval.hs
+++ b/Eval.hs
@@ -35,7 +35,7 @@ eval env expr = let (eval', evalFull') = (eval env, evalFull env) in case expr o

            RecordSelect -> debug (show expr) $ Record filteredList
                where
-                    (Record recordData: indexes) = map eval' args
+                    (Record recordData: indexes) = map eval' args -- 
                    indexesRaw = map (\(Int i) -> i - 1) indexes

                    filteredList = map (recordData!!) indexesRaw