metaQual
  :: Char
  -- ^ Leader character

  -> (Meta, Qual)
  -> String

metaQual ldr (m, q) = indent 1 $ [ldr] <+> "Decree (" <+>
  show m <+> ")" <+> "(" <+> i <+> ")"
  where
    kind = case q of
      QTree -> "Multi"
      QProp -> "Single"
    i = kind <+> qualName
    qualName = (concat . intersperse "." . modName . modDesc $ m)
      ++ "." ++ qName m
metaQual
  :: Char
  -- ^ Leader character

  -> (Meta, Qual)
  -> String
metaQual ldr (m, q) = indent 1 $ [ldr] <+> "Decree (" <+>
  show m <+> ")" <+> "(" <+> i <+> ")"
  where
    kind = case q of
      QTree -> "Multi"
      QProp -> "Single"
    i = kind <+> qualName
    qualName = (concat . intersperse "." . modName . modDesc $ m)
      ++ "." ++ qName m
metaQual ldr (m, q) = indent 1 $ [ldr] <+> "Decree (" <+>
  show m <+> ")" <+> "(" <+> i <+> ")"
  where
    kind = case q of
      QTree -> "Multi"
      QProp -> "Single"
    i = kind <+> qualName
    qualName = (concat . intersperse "." . modName . modDesc $ m)
      ++ "." ++ qName m