add derive Show for ParseResult

This commit is contained in:
Krasimir Angelov
2026-09-15 11:58:19 +02:00
parent 28cf82c18d
commit d7b9d58039
+1
View File
@@ -845,6 +845,7 @@ data ParseOutput a
| ParseOk a -- ^ If the parsing and the type checking are successful | ParseOk a -- ^ If the parsing and the type checking are successful
-- we get the abstract syntax trees as either a list or a chart. -- we get the abstract syntax trees as either a list or a chart.
| ParseIncomplete -- ^ The sentence is not complete. | ParseIncomplete -- ^ The sentence is not complete.
deriving Show
parse :: Concr -> Type -> String -> ParseOutput [(Expr,Float)] parse :: Concr -> Type -> String -> ParseOutput [(Expr,Float)]
parse c ty sent = parse c ty sent =