From 703c437bd9c6cb9e4675b65ac2b107f76b135d71 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 1 Jun 2011 21:56:04 -0400 Subject: rename modules for data types into Types/ directory --- Backend/File.hs | 4 ++-- Backend/SHA.hs | 4 ++-- Backend/URL.hs | 4 ++-- Backend/WORM.hs | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) (limited to 'Backend') diff --git a/Backend/File.hs b/Backend/File.hs index 543f02af7..bf21224a9 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -18,7 +18,7 @@ import Control.Monad.State (liftIO) import Data.List import Data.String.Utils -import BackendClass +import Types.Backend import LocationLog import qualified Remote import qualified GitRepo as Git @@ -28,7 +28,7 @@ import Types import UUID import Messages import Trust -import Key +import Types.Key backend :: Backend Annex backend = Backend { diff --git a/Backend/SHA.hs b/Backend/SHA.hs index 6d721038c..94ebe093e 100644 --- a/Backend/SHA.hs +++ b/Backend/SHA.hs @@ -17,15 +17,15 @@ import System.Posix.Files import System.FilePath import qualified Backend.File -import BackendClass import Messages import qualified Annex import Locations import Content import Types +import Types.Backend +import Types.Key import Utility import qualified SysConfig -import Key type SHASize = Int diff --git a/Backend/URL.hs b/Backend/URL.hs index 3068c3027..e41004dd4 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -10,10 +10,10 @@ module Backend.URL (backends) where import Control.Monad.State (liftIO) import Types -import BackendClass +import Types.Backend import Utility import Messages -import Key +import Types.Key backends :: [Backend Annex] backends = [backend] diff --git a/Backend/WORM.hs b/Backend/WORM.hs index b33c60763..dc2e48adc 100644 --- a/Backend/WORM.hs +++ b/Backend/WORM.hs @@ -12,9 +12,9 @@ import System.FilePath import System.Posix.Files import qualified Backend.File -import BackendClass +import Types.Backend import Types -import Key +import Types.Key backends :: [Backend Annex] backends = [backend] -- cgit v1.2.3