diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-16 16:20:49 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-16 16:20:49 -0400 |
commit | 909f619c07699fe6c76d40bb4649e07737a0b9ae (patch) | |
tree | 3d284a54f5bf70e2ac11d249bfa721963affb5be /Backend | |
parent | 6d13ae10cf1d295b64855984f5a526f8209f3341 (diff) |
tweaks
Diffstat (limited to 'Backend')
-rw-r--r-- | Backend/File.hs | 1 | ||||
-rw-r--r-- | Backend/SHA1.hs | 3 | ||||
-rw-r--r-- | Backend/URL.hs | 1 | ||||
-rw-r--r-- | Backend/WORM.hs | 7 |
4 files changed, 8 insertions, 4 deletions
diff --git a/Backend/File.hs b/Backend/File.hs index c443b4f7a..f5237f721 100644 --- a/Backend/File.hs +++ b/Backend/File.hs @@ -15,6 +15,7 @@ import System.IO import System.Cmd import System.Exit import Control.Exception + import BackendTypes import LocationLog import Locations diff --git a/Backend/SHA1.hs b/Backend/SHA1.hs index 8c7c99bbd..c01e01a72 100644 --- a/Backend/SHA1.hs +++ b/Backend/SHA1.hs @@ -3,8 +3,9 @@ module Backend.SHA1 (backend) where -import qualified Backend.File import Data.Digest.Pure.SHA + +import qualified Backend.File import BackendTypes backend = Backend.File.backend { diff --git a/Backend/URL.hs b/Backend/URL.hs index 4e87ca4c2..9e64e0499 100644 --- a/Backend/URL.hs +++ b/Backend/URL.hs @@ -7,6 +7,7 @@ import Control.Monad.State (liftIO) import Data.String.Utils import System.Cmd import System.Exit + import BackendTypes backend = Backend { diff --git a/Backend/WORM.hs b/Backend/WORM.hs index 9a1e17ec5..420f336e9 100644 --- a/Backend/WORM.hs +++ b/Backend/WORM.hs @@ -4,14 +4,15 @@ module Backend.WORM (backend) where import Control.Monad.State -import qualified Backend.File -import BackendTypes -import Utility import System.FilePath import System.Posix.Files import Data.Digest.Pure.SHA -- slow, but we only checksum filenames import qualified Data.ByteString.Lazy.Char8 as B +import qualified Backend.File +import BackendTypes +import Utility + backend = Backend.File.backend { name = "WORM", getKey = keyValue |