module Store.Upload ( uploadFile ) where import System.Posix.FilePath (RawFilePath, (</>)) import Has (view) import Store.Types import Model.Id import Model.Token.Types uploadFile :: Upload -> Storage -> RawFilePath uploadFile t s = storageUpload s </> unId (view t :: Id Token)