summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/CheckMap.hs2
-rw-r--r--lib/Paths.hs2
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