improve QName comparison time

This commit is contained in:
2025-08-29 11:08:34 -07:00
parent 33a4cf6070
commit f90d171598
2 changed files with 5 additions and 3 deletions

View File

@@ -104,7 +104,8 @@ data QName : U where
QN : List String -> String -> QName
instance Eq QName where
QN ns n == QN ns' n' = n == n' && ns == ns'
-- `if` gets us short circuit behavior, idris has a lazy `&&`
QN ns n == QN ns' n' = if n == n' then ns == ns' else False
instance Show QName where
show (QN Nil n) = n