1 files changed, 54 insertions, 0 deletions
diff --git a/src/Destination.hs b/src/Destination.hs
new file mode 100644
index 0000000..4fd8cd8
--- /dev/null
+++ b/src/Destination.hs
@@ -0,0 +1,54 @@
+module Destination (
+    Destination,
+    DeclaredDestination(..),
+    DestinationName(..), textDestinationName, showDestinationName,
+
+    openDestination,
+    copyToDestination,
+
+    copyRecursive,
+    copyRecursiveForce,
+) where
+
+import Control.Monad.IO.Class
+
+import Data.Text (Text)
+import Data.Text qualified as T
+
+import System.FilePath
+import System.Directory
+
+import FileUtils
+
+
+data Destination
+    = FilesystemDestination FilePath
+
+data DeclaredDestination = DeclaredDestination
+    { destinationName :: DestinationName
+    , destinationUrl :: Maybe Text
+    }
+
+
+newtype DestinationName = DestinationName Text
+    deriving (Eq, Ord, Show)
+
+textDestinationName :: DestinationName -> Text
+textDestinationName (DestinationName text) = text
+
+showDestinationName :: DestinationName -> String
+showDestinationName = T.unpack . textDestinationName
+
+
+openDestination :: FilePath -> Text -> IO Destination
+openDestination baseDir url = do
+    let path = baseDir </> T.unpack url
+    createDirectoryIfMissing True path
+    return $ FilesystemDestination path
+
+copyToDestination :: MonadIO m => FilePath -> Destination -> FilePath -> m ()
+copyToDestination source (FilesystemDestination base) inner = do
+    let target = base </> dropWhile isPathSeparator inner
+    liftIO $ do
+        createDirectoryIfMissing True $ takeDirectory target
+        copyRecursiveForce source target