diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-09-15 16:34:45 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-09-15 16:46:03 -0400 |
commit | 15d757049d764410e3d71bbb68640549f86fc543 (patch) | |
tree | 8bdff79aa30eb197142899ef82f03cc577f61862 /Database | |
parent | 2d3f18876550ee2e37a60aea1c0faaa369606ae0 (diff) |
split out Types.Export
Diffstat (limited to 'Database')
-rw-r--r-- | Database/Export.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Database/Export.hs b/Database/Export.hs index cfd3f7745..df3d92300 100644 --- a/Database/Export.hs +++ b/Database/Export.hs @@ -28,7 +28,7 @@ import qualified Database.Queue as H import Database.Init import Annex.Locations import Annex.Common hiding (delete) -import Types.Remote (ExportLocation(..), ExportDirectory(..), exportedDirectories) +import Types.Export import Database.Persist.TH import Database.Esqueleto hiding (Key) @@ -73,7 +73,7 @@ addExportLocation h k el@(ExportLocation f) = queueDb h $ do void $ insertUnique $ Exported ik ef insertMany_ $ map (\(ExportDirectory d) -> ExportedDirectory (toSFilePath d) ef) - (exportedDirectories el) + (exportDirectories el) where ik = toIKey k ef = toSFilePath f @@ -83,7 +83,7 @@ removeExportLocation h k el@(ExportLocation f) = queueDb h $ do delete $ from $ \r -> do where_ (r ^. ExportedKey ==. val ik &&. r ^. ExportedFile ==. val ef) let subdirs = map (\(ExportDirectory d) -> toSFilePath d) - (exportedDirectories el) + (exportDirectories el) delete $ from $ \r -> do where_ (r ^. ExportedDirectoryFile ==. val ef &&. r ^. ExportedDirectorySubdir `in_` valList subdirs) |