Compute/ConcreteLazy.hs: no need to reverse when looking up labels in records

2011-10-20 14:19:33 +00:00
parent d8d60adb15
commit ef4fac9d82
1 changed files with 1 additions and 1 deletions
--- a/src/compiler/GF/Compile/Compute/ConcreteLazy.hs
+++ b/src/compiler/GF/Compile/Compute/ConcreteLazy.hs
@@ -251,7 +251,7 @@ computeTermOpt gr = comput True where
    where
     --{...}.l
     project l = maybe (fail_project l) (comp g) . try_project l
-     try_project l = fmap snd . lookup l . reverse
+     try_project l = fmap snd . lookup l
     fail_project l = fail (render (text "no value for label" <+> ppLabel l))

     compApp g (App f a) = do    -- (f a)