Better error message for errors

csicar · Mar 3, 2021 · 2475ea1 · 2475ea1
1 parent d9eb72c
commit 2475ea1
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/Purepur/Generate.hs b/src/Purepur/Generate.hs
@@ -64,6 +64,9 @@ generateTestFromMarkdown title (Just comment) = do
       --TODO: warn user about ignored expr
       error $ "unused expression: " <> show expr
     commandsToDocument title [] = mempty
+    commandsToDocument title (ExpectedOutput str: rest) = 
+      error $ "Could not translate doctest comment: Found expected output " <> show str <> ", but no matching command."
+        <> " Maybe you missed a `>`? "
 
 generateTestFromMarkdownFile :: (FilePath, T.Text) -> Except ParseError (PurepurDocument, P.ModuleName)
 generateTestFromMarkdownFile (path, textContent) = do