From 7ad5e1cd504b1d57ff3660f9eb81d2e7072ea4bf Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 23 Sep 2021 00:23:03 +0200
Subject: very naïve handling of directories

---
 lib/Properties.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Properties.hs')

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
-- 
cgit v1.2.3