diff options
Diffstat (limited to '')
-rw-r--r-- | lib/Paths.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Paths.hs b/lib/Paths.hs index 83c065f..99774c5 100644 --- a/lib/Paths.hs +++ b/lib/Paths.hs @@ -67,7 +67,7 @@ isOldStyle :: RelPath -> Bool isOldStyle (Path _ text frag) = path =~ ("{<.+>*}" :: Text) where path = case frag of Just f -> text <> f - _ -> text + _ -> text getExtension :: RelPath -> Text getExtension (Path _ text frag) = case length splitted of |