This commit is contained in:
Joey Hess 2010-10-16 16:20:49 -04:00
parent 6d13ae10cf
commit 909f619c07
16 changed files with 27 additions and 11 deletions

View file

@ -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