-- | Adds a primary instance (basic version).
addPri :: Node -> Instance.Instance -> T.OpResult Node
addPri = addPriEx False
addPri :: Node -> Instance.Instance -> T.OpResult Node
addPri = addPriEx False
addPri = addPriEx False