diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs
index 0fe76bad1f57b4e69db640e23cc895f7d90c9d75..ba92d6ae16e28bbfb43dcbd65a34a3c0a7d2e8f9 100644
--- a/lib/CheckMap.hs
+++ b/lib/CheckMap.hs
@@ -161,7 +161,7 @@ checkLayerRec config depth layers =
 
 -- human-readable lint output, e.g. for consoles
 instance PrettyPrint (Level, MapResult) where
-  prettyprint (level, mapResult) = if complete == ""
+  prettyprint (_, mapResult) = if complete == ""
     then "  all good!\n" else complete
     where
       complete = T.concat $ prettyGeneral
diff --git a/lib/Paths.hs b/lib/Paths.hs
index 7fae0dfcff914e1b0173345dc13709595200c5b8..f72874fa4afccbfcda7d147e06a33ead5222552d 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
diff --git a/walint.cabal b/walint.cabal
index a211aec3d80430f8eeb27ef3d2f9d40a8967d452..b1c06cab85040b7cf6bfe03c03300181721dcd30 100644
--- a/walint.cabal
+++ b/walint.cabal
@@ -23,7 +23,7 @@ extra-source-files: CHANGELOG.md
 
 library
     default-language: Haskell2010
-    ghc-options: -Wall
+    ghc-options: -Wall -Wno-name-shadowing
     hs-source-dirs: lib
     exposed-modules:
         CheckMap