fix reexports

This commit is contained in:
Ilya Rezvov
2023-08-21 08:23:58 -06:00
parent f23dc20d57
commit bb2a6cea7f
4 changed files with 19 additions and 10 deletions
+1 -1
View File
@@ -65,7 +65,7 @@ instance Monoid ValidationResult where
isValid :: ValidationResult -> Bool
isValid (Right ()) = True
isValid (Left reason) = Debug.trace ("Module mismatched with reason " ++ show reason) $ False
isValid (Left reason) = False
type Validator = Module -> ValidationResult