ppBlockDecl :: BlockDecl -> Doc
ppBlockDecl (ParamDeclBlock x)   = ppParamDecl x
ppBlockDecl :: BlockDecl -> Doc
ppBlockDecl (ParamDeclBlock x)   = ppParamDecl x
ppBlockDecl (ParamDeclBlock x)   = ppParamDecl x