gistfile1.hs

class Monad m => FilesDb m where
    insertFile :: DbTeamId -> DbFolderId -> Text -> m (Entity DbFile)
    insertFolder :: DbTeamId -> DbFolderId -> Text -> m (Key DbFolder)
    getRootFolder :: DbTeamId -> m (Maybe (Folder (Entity DbFile)))
    getFile :: DbFileId -> m (Maybe (Entity DbFile))
    -- | Purposely doesn't fetch the children, because we don't want to use recursion right now.
    getFolder :: DbFolderId -> m (Maybe (Folder (Entity DbFile)))
    getFolderRecursive :: DbFolderId -> m (Maybe (Folder (Entity DbFile)))
    deleteFile :: DbFileId -> m ()
    deleteFolder :: DbFolderId -> m ()
    moveFile :: DbFileId -> Folder a -> m ()
    moveFolder :: Folder a -> Folder a -> m ()

class Monad m => S3FileServer m where
    uploadFile :: UploadFile -> m File
    deleteFile :: Entity DbFile -> m File
    deleteFolder :: Folder (Entity DbFile) -> m [File]
    withS3Paths :: Entity DbFile -> m File