GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-24 03:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove duplicated function from GF.Grammar.Macros

Browse Source
This commit is contained in:
krasimir
2009-10-07 09:33:57 +00:00
parent 68c866cf11
commit e560990727
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Grammar/Macros.hs
View File

@@ -82,13 +82,6 @@ funsToAndFrom t =
cis = zip cs [0..] cis = zip cs [0..]
in (v, [(c,[i | (c',i) <- cis, c' == c]) | c <- cs]) in (v, [(c,[i | (c',i) <- cis, c' == c]) | c <- cs])
typeFormConcrete :: Type -> Err (Context, Type)
typeFormConcrete t = case t of
Prod b x a t -> do
(x', typ) <- typeFormConcrete t
return ((b,x,a):x', typ)
_ -> return ([],t)
isRecursiveType :: Type -> Bool isRecursiveType :: Type -> Bool
isRecursiveType t = isRecursiveType t =
let (cc,c) = catSkeleton t -- thus recursivity on Cat level let (cc,c) = catSkeleton t -- thus recursivity on Cat level