rnhmjoj/hashrename
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Turn extensions lowercase

Browse Source
This commit is contained in:
rnhmjoj 2015-08-11 18:03:20 +02:00
parent 558c3a682a
commit 377afbb3cc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hashrename.hs
View File

@ -1,4 +1,5 @@
import Control.Monad import Control.Monad
import Data.Char (toLower)
import Text.Printf (printf) import Text.Printf (printf)
import Crypto.Hash.SHA1 (hash) import Crypto.Hash.SHA1 (hash)
import System.Environment (getArgs) import System.Environment (getArgs)
@ -22,7 +23,7 @@ newName path = do
hash <- take 10 <$> fileHash path hash <- take 10 <$> fileHash path
let (file, ext) = splitExtension path let (file, ext) = splitExtension path
(dir, base) = splitFileName file (dir, base) = splitFileName file
new = dir </> hash <.> ext new = dir </> hash <.> map toLower ext
if null base if null base
then return path then return path
else return new else return new