+-- | Simple lookup function, insisting on exact matches and using
+-- byte strings.
+getItem' :: String -> String -> M.Map BS.ByteString a -> ErrorResult a
+getItem' kind name allitems =
+ let name' = UTF8.fromString name
+ err = Bad $ OpPrereqError (kind ++ " uuid " ++ name ++ " not found")
+ ECodeNoEnt
+ in maybe err Ok $ M.lookup name' allitems
+