msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Remove commented line

Browse Source
This commit is contained in:
John J. Camilleri
2021-03-08 10:42:16 +01:00
parent c76efcf916
commit fd07946a50
1 changed files with 0 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/runtime/haskell/LPGF.hs
View File

@@ -232,7 +232,6 @@ eval cxt t = case t of
(Missing f, _) -> Missing f (Missing f, _) -> Missing f
(_, Missing f) -> Missing f (_, Missing f) -> Missing f
(Tuple vs, Ix i) -> vs !! (i-1) (Tuple vs, Ix i) -> vs !! (i-1)
-- (tp@(Tuple _), tv@(Tuple _)) | all isIx (flattenTuple tv) -> foldl (\(Tuple vs) (Ix i) -> vs !! (i-1)) tp (flattenTuple tv)
(t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv) (t', tv@(Tuple _)) -> eval cxt $ foldl Projection t' (flattenTuple tv)
(t',u') -> error $ printf "Incompatible projection:\n- %s\n⇓ %s\n- %s\n⇓ %s" (show t) (show t') (show u) (show u') (t',u') -> error $ printf "Incompatible projection:\n- %s\n⇓ %s\n- %s\n⇓ %s" (show t) (show t') (show u) (show u')
Argument i -> cxArgs cxt !! (i-1) Argument i -> cxArgs cxt !! (i-1)