Provide an error message if VERSION is missing

eunikolsky · Dec 17, 2021 · a398266 · a398266
1 parent 71c22b2
commit a398266
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Lib.hs b/src/Lib.hs
@@ -100,7 +100,9 @@ vcardParser = runMaybeT $ do
     , cbVersionCorrect = versionCorrect
     }
     <- lift $ execWriterT (someTill contentline (string "END:VCARD" *> eol))
-  lift $ guard versionCorrect
+  -- TODO this reports an error on the next line after the "END:VCARD"; ideally
+  -- it should do that on that line
+  lift $ unless versionCorrect $ fail "vCard must have a VERSION"
   -- _ :: Maybe Birthday -> MaybeT Parser Birthday
   -- MaybeT :: m (Maybe a) -> MaybeT m a
   birthday :: Birthday <- MaybeT $ pure maybeBirthday