ppInst :: Inst -> Doc
ppInst (Inst x r cs)
  = ppIdent x <> mb ppRange r <> char '\n' <>
    lineParens (commasep ppCs)
  where
    ppCs = case cs of
             Connections exprs    -> map ppExpr exprs
             NamedConnections ncs -> map ppNamedConnection ncs

-- this is used for both port connections and parameter assignments
ppInst :: Inst -> Doc
ppInst (Inst x r cs)
  = ppIdent x <> mb ppRange r <> char '\n' <>
    lineParens (commasep ppCs)
  where
    ppCs = case cs of
             Connections exprs    -> map ppExpr exprs
             NamedConnections ncs -> map ppNamedConnection ncs

-- this is used for both port connections and parameter assignments
ppInst (Inst x r cs)
  = ppIdent x <> mb ppRange r <> char '\n' <>
    lineParens (commasep ppCs)
  where
    ppCs = case cs of
             Connections exprs    -> map ppExpr exprs
             NamedConnections ncs -> map ppNamedConnection ncs

-- this is used for both port connections and parameter assignments