blob: 2128f207daef0806a30db268f4f98e7d0964a542 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{- git-annex command
-
- Copyright 2010 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.PreCommit where
import Command
import qualified Command.Fix
{- Run by git pre-commit hook. -}
start :: SubCmdStartString
start file = do
-- If a file is unlocked for edit, inject its content into the
-- annex, and replace it with a symlink to the content. Git will
-- then commit that.
error "TODO"
-- fix symlinks
Command.Fix.start file
|
