diff options
| -rw-r--r-- | lib/CheckMap.hs | 2 | ||||
| -rw-r--r-- | lib/Paths.hs | 2 | ||||
| -rw-r--r-- | walint.cabal | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/CheckMap.hs b/lib/CheckMap.hs index 0fe76ba..ba92d6a 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 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 diff --git a/walint.cabal b/walint.cabal index a211aec..b1c06ca 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 |