explicit exports
This commit is contained in:
parent
af82586adf
commit
ebc3fbe9ae
11 changed files with 58 additions and 39 deletions
11
Annex.hs
11
Annex.hs
|
@ -1,7 +1,12 @@
|
|||
{- git-annex toplevel code
|
||||
-}
|
||||
|
||||
module Annex where
|
||||
module Annex (
|
||||
State,
|
||||
startAnnex,
|
||||
annexFile,
|
||||
unannexFile
|
||||
) where
|
||||
|
||||
import System.Posix.Files
|
||||
import System.Directory
|
||||
|
@ -34,7 +39,7 @@ annexDir repo key = do
|
|||
- later. -}
|
||||
startAnnex :: IO State
|
||||
startAnnex = do
|
||||
r <- currentRepo
|
||||
r <- gitRepoCurrent
|
||||
config <- getConfig r
|
||||
gitPrep r
|
||||
return State {
|
||||
|
@ -46,7 +51,7 @@ startAnnex = do
|
|||
getConfig :: GitRepo -> IO GitConfig
|
||||
getConfig repo = do
|
||||
-- a name can be configured, if none is, use the repository path
|
||||
name <- gitConfigGet "annex.name" (top repo)
|
||||
name <- gitConfigGet "annex.name" (gitRepoTop repo)
|
||||
-- default number of copies to keep of file contents is 1
|
||||
numcopies <- gitConfigGet "annex.numcopies" "1"
|
||||
backends <- gitConfigGet "annex.backends" ""
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue