getStdAttr         :: AttrTable (StdAttr a) -> NodeInfo -> a
getStdAttr atab at  = getStdAttrDft atab at err
  where
    err = interr $ "Attributes.getStdAttr: Don't care in\n"
                   ++ errLoc atab (posOf at)

-- | get an attribute value from a standard attribute table, where a default is
-- substituted if the table is don't care
--
getStdAttr         :: AttrTable (StdAttr a) -> NodeInfo -> a
getStdAttr atab at  = getStdAttrDft atab at err
  where
    err = interr $ "Attributes.getStdAttr: Don't care in\n"
                   ++ errLoc atab (posOf at)

-- | get an attribute value from a standard attribute table, where a default is
-- substituted if the table is don't care
--
getStdAttr atab at  = getStdAttrDft atab at err
  where
    err = interr $ "Attributes.getStdAttr: Don't care in\n"
                   ++ errLoc atab (posOf at)

-- | get an attribute value from a standard attribute table, where a default is
-- substituted if the table is don't care
--