Skip to content

Commit f123a71

Browse files
committed
ES: added more detailed error message to conversion
1 parent 0eda3ff commit f123a71

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

grin/src/Transformations/ExtendedSyntax/Conversion.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -182,6 +182,7 @@ instance Convertible Exp New.Exp where
182182
(Alt cpat exp) -> do
183183
altName <- deriveNewName "alt"
184184
pure $ New.NAltF (convert cpat) (convert altName) exp
185+
_ -> error "Conversion from Old to New has failed: unexpected AST pattern"
185186

186187
instance Convertible New.TagType TagType where
187188
convert = \case

0 commit comments

Comments
 (0)