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

catch all case in GenerateBC.genFun

Browse Source
This commit is contained in:
kr.angelov
2012-09-18 08:32:21 +00:00
parent ab173e4adc
commit 91ca7c9a1b
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/compiler/GF/Compile/GenerateBC.hs
View File

@@ -36,6 +36,9 @@ genFun (id,info@(AbsFun (Just (L _ ty)) ma pty _)) = do
genFun (id,info@(AbsCat (Just (L _ cont)))) = do
l1 <- newLabel
return (id,info,addr l1)
genFun (id,info) = do
l1 <- newLabel
return (id,info,addr l1)
newtype GenM a = GenM {unGenM :: IntMap.IntMap BCAddr ->
IntMap.IntMap BCAddr ->