diff options
Diffstat (limited to 'lib/Paths.hs')
| -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 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 |