diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Properties.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 011b5ca..86acda9 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -228,7 +228,7 @@ unwrapBool (Property name value) f = case value of unwrapPath :: Text -> (RelPath -> LintWriter a) -> LintWriter a unwrapPath str f = case parsePath str of - Just p@(Path up _) -> do + Just p@(Path up _ _) -> do depth <- askFileDepth if up <= depth then f p |