complete :: Annotated -> Bool
complete x = V.all (isJust . fst) $ annotated x
complete :: Annotated -> Bool
complete x = V.all (isJust . fst) $ annotated x
complete x = V.all (isJust . fst) $ annotated x