Process pattern in correct order

This commit is contained in:
2024-08-07 21:49:35 -07:00
parent 9c5bdf5983
commit 13dd77345c
5 changed files with 92 additions and 44 deletions

View File

@@ -17,6 +17,7 @@ lookup nm top = go top.defs
-- Maybe pretty print?
export
covering
Show TopContext where
show (MkTop defs metas _) = "\nContext:\n [\{ joinBy "\n" $ map show defs}]"