@@ -889,8 +889,8 @@ getCallback bc = getCallback' (reverse bc)
889 getCallback' [] = []
889 getCallback' [] = []
890 findCons (c:cs) xs = findCon c xs ++ findCons cs xs
890 findCons (c:cs) xs = findCon c xs ++ findCons cs xs
891 findCons [] _ = []
891 findCons [] _ = []
892− findCon c ((MKCON l loc tag args):xs) | snd c == l =
892+ findCon c ((MKCON l loc tag args):xs) | snd c == l =
893− if null args
893+ if null args
894 then [(fst c, tag)]
894 then [(fst c, tag)]
895 else error "Can't wrap a closure as callback."
895 else error "Can't wrap a closure as callback."
896 findCon c (_:xs) = findCon c xs
896 findCon c (_:xs) = findCon c xs