diff options
| author | stuebinm | 2021-09-23 00:23:03 +0200 |
|---|---|---|
| committer | stuebinm | 2021-09-23 00:23:03 +0200 |
| commit | 7ad5e1cd504b1d57ff3660f9eb81d2e7072ea4bf (patch) | |
| tree | a144113aa8defd68f7b88b1e9ef6ee0196384c55 /lib/Properties.hs | |
| parent | c6be6366d6411d7b0b53fd8879537a33fefd5a88 (diff) | |
very naïve handling of directories
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 |