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

remove some more old code

Browse Source
This commit is contained in:
krasimir
2015-03-05 14:47:36 +00:00
parent 7539809461
commit 0238579610
10 changed files with 37 additions and 354 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/compiler/GF/Grammar/Macros.hs
View File

@@ -565,7 +565,6 @@ strsFromTerm t = case t of
stringFromTerm :: Term -> String
stringFromTerm = err id (ifNull "" (sstr . head)) . strsFromTerm
getTableType :: TInfo -> Err Type
getTableType i = case i of
TTyped ty -> return ty
@@ -646,14 +645,3 @@ topoSortJments2 (m,mi) = do
(topoTest2 (allDependencies (==m) (jments mi)))
return
[[(i,info) | i<-is,Ok info<-[lookupTree showIdent i (jments mi)]] | is<-iss]
{-
-- | Smart constructor for PSeq
pSeq p1 p2 =
case (p1,p2) of
(PString s1,PString s2) -> PString (s1++s2)
(PSeq p11 (PString s1),PString s2) -> PSeq p11 (PString (s1++s2))
(PString s1,PSeq (PString s2) p22) -> PSeq (PString (s1++s2)) p22
(PSeq p11 (PString s1),PSeq (PString s2) p22) ->
PSeq p11 (PSeq (PString (s1++s2)) p22)
_ -> PSeq p1 p2
-}