explicit exports

This commit is contained in:
Joey Hess 2010-10-11 17:52:46 -04:00
parent af82586adf
commit ebc3fbe9ae
11 changed files with 58 additions and 39 deletions

View file

@ -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" ""