use takeDirectory instead of parentDir

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

View file

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