From 7c29b52da8e1d73b26c74f278cfc66bb0febed16 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 16 Dec 2021 16:12:39 +0100
Subject: fixed some warnings (and disabled others)

So far i've never found an instance of -Wname-shadowing telling me
anything useful, so it's disabled now, and most of the other trivial
ones are fixed.

(I assume this means I'll need -Wname-shadowing in about a day or two to
find some bug ...)
---
 lib/Paths.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Paths.hs')

diff --git a/lib/Paths.hs b/lib/Paths.hs
index 7fae0df..f72874f 100644
--- a/lib/Paths.hs
+++ b/lib/Paths.hs
@@ -71,7 +71,7 @@ isOldStyle (Path _ text frag) = path =~ ("{<.+>*}" :: Text)
           _      -> text
 
 getExtension :: RelPath -> Text
-getExtension (Path _ text frag) = case length splitted of
+getExtension (Path _ text _) = case length splitted of
   0 -> ""
   _ -> last splitted
   where splitted = T.splitOn "." text
-- 
cgit v1.2.3