mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improve imports

Browse source
This commit is contained in:
Joey Hess 2013-02-27 21:48:46 -04:00
parent a2f17146fa
commit 24316f6562
6 changed files with 10 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Logs/Presence.hs
View file

@ -29,11 +29,10 @@ import Data.Time.Clock.POSIX
import Data.Time import Data.Time
import System.Locale import System.Locale
import qualified Data.Map as M import qualified Data.Map as M
import Test.QuickCheck
import Utility.QuickCheck ()
import Common.Annex import Common.Annex
import qualified Annex.Branch import qualified Annex.Branch
import Utility.QuickCheck
data LogLine = LogLine { data LogLine = LogLine {
date :: POSIXTime, date :: POSIXTime,

3
Logs/Transfer.hs
View file

@ -14,6 +14,7 @@ import qualified Git
import Types.Remote import Types.Remote
import Types.Key import Types.Key
import Utility.Percentage import Utility.Percentage
import Utility.QuickCheck
import System.Posix.Types import System.Posix.Types
import Data.Time.Clock import Data.Time.Clock
@ -21,8 +22,6 @@ import Data.Time.Clock.POSIX
import Data.Time import Data.Time
import System.Locale import System.Locale
import Control.Concurrent import Control.Concurrent
import Test.QuickCheck
import Utility.QuickCheck ()
{- Enough information to uniquely identify a transfer, used as the filename {- Enough information to uniquely identify a transfer, used as the filename
- of the transfer information file. -} - of the transfer information file. -}

1
Test.hs
View file

@ -20,7 +20,6 @@ import System.IO.HVFS (SystemFS(..))
import Text.JSON import Text.JSON
import Common import Common
import Utility.QuickCheck ()
import qualified Utility.SafeCommand import qualified Utility.SafeCommand
import qualified Annex import qualified Annex

3
Types/Key.hs
View file

@ -17,10 +17,9 @@ module Types.Key (
) where ) where
import System.Posix.Types import System.Posix.Types
import Test.QuickCheck
import Utility.QuickCheck ()
import Common import Common
import Utility.QuickCheck
{- A Key has a unique name, is associated with a key/value backend, {- A Key has a unique name, is associated with a key/value backend,
- and may contain other optional metadata. -} - and may contain other optional metadata. -}

3
Utility/InodeCache.hs
View file

@ -9,8 +9,7 @@ module Utility.InodeCache where
import Common import Common
import System.Posix.Types import System.Posix.Types
import Test.QuickCheck import Utility.QuickCheck
import Utility.QuickCheck ()
data InodeCache = InodeCache FileID FileOffset EpochTime data InodeCache = InodeCache FileID FileOffset EpochTime
deriving (Eq, Show) deriving (Eq, Show)

9
Utility/QuickCheck.hs
View file

@ -1,4 +1,4 @@
{- QuickCheck instances {- QuickCheck with additional instances
- -
- Copyright 2012 Joey Hess <joey@kitenet.net> - Copyright 2012 Joey Hess <joey@kitenet.net>
- -
@ -8,9 +8,12 @@
{-# OPTIONS_GHC -fno-warn-orphans #-} {-# OPTIONS_GHC -fno-warn-orphans #-}
{-# LANGUAGE TypeSynonymInstances #-} {-# LANGUAGE TypeSynonymInstances #-}
module Utility.QuickCheck where module Utility.QuickCheck
( module X
, module Utility.QuickCheck
) where
import Test.QuickCheck import Test.QuickCheck as X
import Data.Time.Clock.POSIX import Data.Time.Clock.POSIX
import System.Posix.Types import System.Posix.Types