From 91ca7c9a1be37b7cc943a1252199b724d1ef5d87 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Tue, 18 Sep 2012 08:32:21 +0000 Subject: [PATCH] catch all case in GenerateBC.genFun --- src/compiler/GF/Compile/GenerateBC.hs | 3 +++ 1 file changed, 3 insertions(+) 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 ->