add complete pragma

This commit is contained in:
Travis Staton 2023-03-03 10:50:35 -05:00
parent 1eefcdc5d3
commit 96bcbcf2b7
No known key found for this signature in database
GPG Key ID: 431DD911A00DAE49

View File

@ -84,3 +84,5 @@ pattern Grd x rest = Fix (GrdF x rest)
pattern Fork :: NonEmpty (GrdTree n l) -> GrdTree n l
pattern Fork alts = Fix (ForkF alts)
{-# COMPLETE Leaf, Grd, Fork #-}