couple of AMP warnings I missed before

This commit is contained in:
Joey Hess 2015-05-10 16:50:46 -04:00
parent 663eb15aa3
commit 03667a162a
4 changed files with 9 additions and 8 deletions

View file

@ -8,7 +8,8 @@
module Assistant.Types.BranchChange where module Assistant.Types.BranchChange where
import Control.Concurrent.MSampleVar import Control.Concurrent.MSampleVar
import Common.Annex import Control.Applicative
import Prelude
newtype BranchChangeHandle = BranchChangeHandle (MSampleVar ()) newtype BranchChangeHandle = BranchChangeHandle (MSampleVar ())

View file

@ -13,10 +13,6 @@ module Git.LsTree (
parseLsTree parseLsTree
) where ) where
import Numeric
import Control.Applicative
import System.Posix.Types
import Common import Common
import Git import Git
import Git.Command import Git.Command
@ -24,6 +20,9 @@ import Git.Sha
import Git.FilePath import Git.FilePath
import qualified Git.Filename import qualified Git.Filename
import Numeric
import System.Posix.Types
data TreeItem = TreeItem data TreeItem = TreeItem
{ mode :: FileMode { mode :: FileMode
, typeobj :: String , typeobj :: String

View file

@ -14,8 +14,8 @@ import Data.Time
#if ! MIN_VERSION_time(1,5,0) #if ! MIN_VERSION_time(1,5,0)
import System.Locale import System.Locale
#endif #endif
import Control.Applicative
import Common import Prelude
{- Parses how POSIXTime shows itself: "1431286201.113452s" {- Parses how POSIXTime shows itself: "1431286201.113452s"
- Also handles the format with no fractional seconds. -} - Also handles the format with no fractional seconds. -}

View file

@ -20,8 +20,9 @@ import Utility.Exception
import Data.List import Data.List
import Data.Char import Data.Char
import Control.Applicative
import System.IO import System.IO
import Control.Applicative
import Prelude
externalSHA :: String -> Int -> FilePath -> IO (Either String String) externalSHA :: String -> Int -> FilePath -> IO (Either String String)
externalSHA command shasize file = do externalSHA command shasize file = do