remove unused functions from Utility.RawFilePath
This commit is contained in:
parent
f8bb9a8734
commit
780a379ab1
3 changed files with 1 additions and 28 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue