diff options
author | 2013-04-22 20:24:53 -0400 | |
---|---|---|
committer | 2013-04-22 20:24:53 -0400 | |
commit | 4d376b47b7aa506c4f4a4c5ccc83ca2ef1aeacc2 (patch) | |
tree | 33ab2e7c4b72d8a7fce40a0e93f63f3d50a6c3ab /Backend/SHA.hs | |
parent | f672c39279366a8927abfcde3050952365f5e0ee (diff) |
expose Control.Monad.join
I think I've been looking for that function for some time.
Ie, I remember wanting to collapse Just Nothing to Nothing.
Diffstat (limited to 'Backend/SHA.hs')
-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 $ |