more imports

Data/Git/Index.hs

@@ -2,8 +2,8 @@ module Data.Git.Index
     (
     ) where
 
-import Control.Applicative
 import Data.Git.Ref
+import Data.Git.Imports
 {-
 <INDEX_HEADER>
     :   "DIRC" <INDEX_FILE_VERSION> <INDEX_ENTRY_COUNT>

Data/Git/Parser.hs

@@ -29,6 +29,7 @@ import qualified Data.ByteString as B
 
 import           Data.Git.Ref
 import           Data.Git.Internal
+import           Data.Git.Imports
 
 vlf = do
     bs <- A.takeWhile (\w -> w `testBit` 7)