showDefault qi qs (Just val) = " DEFAULT "`mappend` showExpr qi qs val
showDefault qi qs (Just val) = " DEFAULT "`mappend` showExpr qi qs val
showDefault qi qs (Just val) = " DEFAULT "`mappend` showExpr qi qs val