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

Handle concatenations with variants in PGF.ShowLinearize, fixes http://trac.haskell.org/gf/ticket/23

Browse Source
This commit is contained in:
bjorn
2008-10-03 07:16:39 +00:00
parent fa69bd8ab3
commit b7fe4eacc9
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/PGF/ShowLinearize.hs
View File

@@ -48,7 +48,9 @@ mkRecord typ trm = case (typ,trm) of
(S [FV ps,ty],R ts) -> RT [(str par, mkRecord ty t) | (par, t) <- zip ps ts] (S [FV ps,ty],R ts) -> RT [(str par, mkRecord ty t) | (par, t) <- zip ps ts]
(_,W s (R ts)) -> mkRecord typ (R [K (KS (s ++ u)) | K (KS u) <- ts]) (_,W s (R ts)) -> mkRecord typ (R [K (KS (s ++ u)) | K (KS u) <- ts])
(FV ps, C i) -> RCon $ str $ ps !! i (FV ps, C i) -> RCon $ str $ ps !! i
(S [], _) -> RS $ str trm (S [], _) -> case realizes trm of
[s] -> RS s
ss -> RFV $ map RS ss
_ -> RS $ show trm ---- printTree trm _ -> RS $ show trm ---- printTree trm
where where
str = realize str = realize