diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CheckMap.hs | 2 | ||||
| -rw-r--r-- | lib/Paths.hs | 2 |
2 files changed, 2 insertions, 2 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 |