metaQuals :: [(Meta, Qual)] -> String
metaQuals ls = case ls of
  [] -> indent 1 "[]"
  x:xs -> metaQual '[' x ++ concatMap (metaQual ',') xs
    ++ indent 1 "]"
metaQuals :: [(Meta, Qual)] -> String
metaQuals ls = case ls of
  [] -> indent 1 "[]"
  x:xs -> metaQual '[' x ++ concatMap (metaQual ',') xs
    ++ indent 1 "]"
metaQuals ls = case ls of
  [] -> indent 1 "[]"
  x:xs -> metaQual '[' x ++ concatMap (metaQual ',') xs
    ++ indent 1 "]"