GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 13:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
hallgren
2011-10-20 14:19:33 +00:00
parent 61c54d4490
commit ec346b16bb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/Compute/ConcreteLazy.hs
View File

@@ -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)