blob: 02b66d01ad637eaaaf391c809b977c9ad5ed91b4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{- git-annex command
-
- Copyright 2010 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.Fsck where
import qualified Data.Map as M
import Command
import Types
import Core
import Messages
import qualified Command.FsckFile
import qualified Command.Unused
seek :: [SubCmdSeek]
seek = [withNothing Command.Unused.start, withAll withFilesInGit Command.FsckFile.start]
|