webapp: Make an initial, empty commit so there is a master branch
Several things only happen when on a branch, so make sure we're on one.
This commit is contained in:
parent
96c7a5ce32
commit
0cf152b88b
3 changed files with 14 additions and 3 deletions
|
@ -20,6 +20,7 @@ import Init
|
|||
import qualified Git
|
||||
import qualified Git.Construct
|
||||
import qualified Git.Config
|
||||
import qualified Git.Command
|
||||
import qualified Annex
|
||||
import Locations.UserConfig
|
||||
import Utility.FreeDesktop
|
||||
|
@ -281,11 +282,19 @@ inDir dir a = do
|
|||
state <- Annex.new =<< Git.Config.read =<< Git.Construct.fromPath dir
|
||||
Annex.eval state a
|
||||
|
||||
{- Initializes a git-annex repository in a directory with a description. -}
|
||||
initRepo :: FilePath -> Maybe String -> IO UUID
|
||||
initRepo dir desc = inDir dir $ do
|
||||
{- Initialize a git-annex repository in a directory with a description. -}
|
||||
unlessM isInitialized $
|
||||
initialize desc
|
||||
unlessM (Git.Config.isBare <$> gitRepo) $
|
||||
{- Initialize the master branch, so things that expect
|
||||
- to have it will work, before any files are added. -}
|
||||
void $ inRepo $ Git.Command.runBool "commit"
|
||||
[ Param "--allow-empty"
|
||||
, Param "-m"
|
||||
, Param "created repository"
|
||||
]
|
||||
getUUID
|
||||
|
||||
{- Adds a directory to the autostart file. -}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue