Skip to content
Snippets Groups Projects
Commit 00a56b7c authored by pm3g19's avatar pm3g19
Browse files

Neatened up function declarations

parent 1cbf18b2
No related branches found
No related tags found
No related merge requests found
...@@ -35,7 +35,7 @@ eval env expr = let (eval', evalFull') = (eval env, evalFull env) in case expr o ...@@ -35,7 +35,7 @@ eval env expr = let (eval', evalFull') = (eval env, evalFull env) in case expr o
RecordSelect -> debug (show expr) $ Record filteredList RecordSelect -> debug (show expr) $ Record filteredList
where where
(Record recordData: indexes) = map eval' args (Record recordData: indexes) = map eval' args --
indexesRaw = map (\(Int i) -> i - 1) indexes indexesRaw = map (\(Int i) -> i - 1) indexes
filteredList = map (recordData!!) indexesRaw filteredList = map (recordData!!) indexesRaw
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment