From 78cc4835fc8ea65b378621025d68e281c75460eb Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 8 Oct 2019 15:41:20 -0400 Subject: [PATCH] :memo: the error case. --- semantic-tags/src/AST/Element.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/semantic-tags/src/AST/Element.hs b/semantic-tags/src/AST/Element.hs index cb50d8369..ab314f638 100644 --- a/semantic-tags/src/AST/Element.hs +++ b/semantic-tags/src/AST/Element.hs @@ -62,6 +62,7 @@ instance Element t r prj' _ = Nothing +-- | Error cases, with custom type errors. instance TypeError ( 'ShowType t ':<>: 'Text " is not in" ':$$: ShowSum u)