diff options
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/SHA.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs index 34faa4922..77bd2c124 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -121,7 +121,7 @@ keyValueE size source = keyValue size source >>= maybe (return Nothing) addE selectExtension :: FilePath -> String selectExtension f | null es = "" - | otherwise = join "." ("":es) + | otherwise = intercalate "." ("":es) where es = filter (not . null) $ reverse $ take 2 $ takeWhile shortenough $ |