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