readMayObjectId :: Text -> Maybe DB.ObjectId
readMayObjectId str =
  case filter (null . snd) $ reads $ T.unpack str :: [(DB.ObjectId,String)] of
    (parsed,_):[] -> Just parsed
    _ -> Nothing
readMayObjectId :: Text -> Maybe DB.ObjectId
readMayObjectId str =
  case filter (null . snd) $ reads $ T.unpack str :: [(DB.ObjectId,String)] of
    (parsed,_):[] -> Just parsed
    _ -> Nothing
readMayObjectId str =
  case filter (null . snd) $ reads $ T.unpack str :: [(DB.ObjectId,String)] of
    (parsed,_):[] -> Just parsed
    _ -> Nothing