diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2012-09-18 08:32:21 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2012-09-18 08:32:21 +0000 |
| commit | 91ca7c9a1be37b7cc943a1252199b724d1ef5d87 (patch) | |
| tree | 9ee2afd8c385b748547156759f840a63bd2376ce /src/compiler | |
| parent | ab173e4adc46173c34ba9f52871e777812530d97 (diff) | |
catch all case in GenerateBC.genFun
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Compile/GenerateBC.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/compiler/GF/Compile/GenerateBC.hs b/src/compiler/GF/Compile/GenerateBC.hs index 160c13893..26d48380f 100644 --- a/src/compiler/GF/Compile/GenerateBC.hs +++ b/src/compiler/GF/Compile/GenerateBC.hs @@ -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 -> |