couple of AMP warnings I missed before
This commit is contained in:
parent
663eb15aa3
commit
03667a162a
4 changed files with 9 additions and 8 deletions
|
@ -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 ())
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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. -}
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue