@@ -126,9 +126,6 @@ moduleToCpp env (Module _ mn imps _ foreigns decls) = do
126 (supers, members) = span (C.__superclass_ `isPrefixOf`) (identToCpp <$> (fst $ unAbs e []))
126 (supers, members) = span (C.__superclass_ `isPrefixOf`) (identToCpp <$> (fst $ unAbs e []))
127 in return $ CppStruct className [CppEnum Nothing Nothing (sort supers ++ members)]
127 in return $ CppStruct className [CppEnum Nothing Nothing (sort supers ++ members)]
129− declToCpp _ (_, Op _) (Var (_, _, Nothing, _) _) =
130− return CppNoOp -- skip operator aliases
132 declToCpp vqs (_, ident) (Abs (_, com, ty, _) arg body) = do
129 declToCpp vqs (_, ident) (Abs (_, com, ty, _) arg body) = do
133 fn <- if argcnt > 1 && CppTopLevel `elem` vqs
130 fn <- if argcnt > 1 && CppTopLevel `elem` vqs