diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
| commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
| tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Utility/FreeDesktop.hs | |
| parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) | |
finished where indentation changes
Diffstat (limited to 'Utility/FreeDesktop.hs')
| -rw-r--r-- | Utility/FreeDesktop.hs | 21 |
1 files changed, 10 insertions, 11 deletions
diff --git a/Utility/FreeDesktop.hs b/Utility/FreeDesktop.hs index 7aba1f272..e3ced6d74 100644 --- a/Utility/FreeDesktop.hs +++ b/Utility/FreeDesktop.hs @@ -51,8 +51,8 @@ toString(NumericV f) = show f toString (ListV l) | null l = "" | otherwise = (intercalate ";" $ map (escapesemi . toString) l) ++ ";" - where - escapesemi = join "\\;" . split ";" + where + escapesemi = join "\\;" . split ";" genDesktopEntry :: String -> String -> Bool -> FilePath -> [String] -> DesktopEntry genDesktopEntry name comment terminal program categories = @@ -64,13 +64,13 @@ genDesktopEntry name comment terminal program categories = , item "Exec" StringV program , item "Categories" ListV (map StringV categories) ] - where - item x c y = (x, c y) + where + item x c y = (x, c y) buildDesktopMenuFile :: DesktopEntry -> String buildDesktopMenuFile d = unlines ("[Desktop Entry]" : map keyvalue d) ++ "\n" - where - keyvalue (k, v) = k ++ "=" ++ toString v + where + keyvalue (k, v) = k ++ "=" ++ toString v writeDesktopMenuFile :: DesktopEntry -> String -> IO () writeDesktopMenuFile d file = do @@ -115,11 +115,10 @@ userConfigDir = xdgEnvHome "CONFIG_HOME" ".config" - to ~/Desktop. -} userDesktopDir :: IO FilePath userDesktopDir = maybe fallback return =<< (parse <$> xdg_user_dir) - where - parse = maybe Nothing (headMaybe . lines) - xdg_user_dir = catchMaybeIO $ - readProcess "xdg-user-dir" ["DESKTOP"] - fallback = xdgEnvHome "DESKTOP_DIR" "Desktop" + where + parse = maybe Nothing (headMaybe . lines) + xdg_user_dir = catchMaybeIO $ readProcess "xdg-user-dir" ["DESKTOP"] + fallback = xdgEnvHome "DESKTOP_DIR" "Desktop" xdgEnvHome :: String -> String -> IO String xdgEnvHome envbase homedef = do |