From e8b1ae6a5f74e6f9d562f8bef63f284f3881df79 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 23 Apr 2013 11:38:52 -0400
Subject: rename module

---
 Locations/UserConfig.hs | 57 -------------------------------------------------
 1 file changed, 57 deletions(-)
 delete mode 100644 Locations/UserConfig.hs

(limited to 'Locations')

diff --git a/Locations/UserConfig.hs b/Locations/UserConfig.hs
deleted file mode 100644
index 429ed8fd5..000000000
--- a/Locations/UserConfig.hs
+++ /dev/null
@@ -1,57 +0,0 @@
-{- git-annex user config files
- -
- - Copyright 2012 Joey Hess <joey@kitenet.net>
- -
- - Licensed under the GNU GPL version 3 or higher.
- -}
-
-module Locations.UserConfig where
-
-import Common
-import Utility.TempFile
-import Utility.FreeDesktop
-
-{- ~/.config/git-annex/file -}
-userConfigFile :: FilePath -> IO FilePath
-userConfigFile file = do
-	dir <- userConfigDir
-	return $ dir </> "git-annex" </> file
-
-autoStartFile :: IO FilePath
-autoStartFile = userConfigFile "autostart"
-
-{- Returns anything listed in the autostart file (which may not exist). -}
-readAutoStartFile :: IO [FilePath]
-readAutoStartFile = do
-	f <- autoStartFile
-	nub . lines <$> catchDefaultIO "" (readFile f)
-
-{- Adds a directory to the autostart file. -}
-addAutoStartFile :: FilePath -> IO ()
-addAutoStartFile path = do
-	dirs <- readAutoStartFile
-	when (path `notElem` dirs) $ do
-		f <- autoStartFile
-		createDirectoryIfMissing True (parentDir f)
-		viaTmp writeFile f $ unlines $ dirs ++ [path]
-
-{- Removes a directory from the autostart file. -}
-removeAutoStartFile :: FilePath -> IO ()
-removeAutoStartFile path = do
-	dirs <- readAutoStartFile
-	when (path `elem` dirs) $ do
-		f <- autoStartFile
-		createDirectoryIfMissing True (parentDir f)
-		viaTmp writeFile f $ unlines $
-			filter (not . equalFilePath path) dirs
-
-{- The path to git-annex is written here; which is useful when cabal
- - has installed it to some aweful non-PATH location. -}
-programFile :: IO FilePath
-programFile = userConfigFile "program"
-
-{- Returns a command to run for git-annex. -}
-readProgramFile :: IO FilePath
-readProgramFile = do
-	programfile <- programFile
-	catchDefaultIO "git-annex" $ readFile programfile
-- 
cgit v1.2.3