Neatened up function declarations

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