remove unused functions from Utility.RawFilePath

This commit is contained in:
Joey Hess 2025-02-11 13:49:17 -04:00
parent f8bb9a8734
commit 780a379ab1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 1 additions and 28 deletions

View file

@ -40,13 +40,12 @@ import Git.FilePath
import qualified Git.Url as Url
import Utility.UserInfo
import Utility.Url.Parse
import qualified Utility.RawFilePath as R
import qualified Utility.OsString as OS
{- Finds the git repository used for the cwd, which may be in a parent
- directory. -}
fromCwd :: IO (Maybe Repo)
fromCwd = R.getCurrentDirectory >>= seekUp . toOsPath
fromCwd = getCurrentDirectory >>= seekUp
where
seekUp dir = do
r <- checkForRepo dir