mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use takeDirectory instead of parentDir

Browse source 
No need for a trailing slash in the directory here, so avoid pulling in an
extra module.
This commit is contained in:
Joey Hess 2016-09-22 11:25:01 -04:00
parent b69b764717
commit ece88889a7
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Utility/FreeDesktop.hs
View file

@ -29,7 +29,6 @@ module Utility.FreeDesktop (
) where ) where
import Utility.Exception import Utility.Exception
import Utility.Path
import Utility.UserInfo import Utility.UserInfo
import Utility.Process import Utility.Process
import Utility.PartialPrelude import Utility.PartialPrelude
@ -82,7 +81,7 @@ buildDesktopMenuFile d = unlines ("[Desktop Entry]" : map keyvalue d) ++ "\n"
writeDesktopMenuFile :: DesktopEntry -> String -> IO () writeDesktopMenuFile :: DesktopEntry -> String -> IO ()
writeDesktopMenuFile d file = do writeDesktopMenuFile d file = do
createDirectoryIfMissing True (parentDir file) createDirectoryIfMissing True (takeDirectory file)
writeFile file $ buildDesktopMenuFile d writeFile file $ buildDesktopMenuFile d
{- Path to use for a desktop menu file, in either the systemDataDir or {- Path to use for a desktop menu file, in either the systemDataDir or