@@ -130,6 +130,7 @@ literals = mkPattern' match
130130 , currentIndent
131131 , return "}"
132132 ]
133+
133134 match (CppFunction name args rty qs ret) =
134135 fmap concat $ sequence
135136 [ return . concatMap (++ " ") . filter (not . null) $ runValueQual <$> qs
@@ -237,12 +238,11 @@ literals = mkPattern' match
237238 val' | '(' `elem` vstr || '[' `elem` vstr = parens vstr
238239 | otherwise = vstr
239240
241+ match (CppVar ident) | ident == C.__unused = match (CppVar $ '_':ident)
240242 match (CppVar ident) = return ident
241243 match (CppApp v [CppNoOp]) = return (prettyPrintCpp1 v)
242− match (CppVariableIntroduction (ident, _) _ (Just value))
243− | ident == C.__unused = fmap concat $ sequence
244− [ prettyPrintCpp' value
245− ]
244+ match (CppVariableIntroduction (ident, typ) qs value)
245+ | ident == C.__unused = match (CppVariableIntroduction ('_':ident, typ) qs value)
246246 match (CppVariableIntroduction (ident, typ) qs value) =
247247 fmap concat $ sequence
248248 [ return . concatMap (++ " ") . filter (not . null) $ runValueQual <$> qs