1 module Databrary.Store.Upload 2 ( uploadFile 3 ) where 4 5 import System.Posix.FilePath (RawFilePath, (</>)) 6 7 import Databrary.Has (view) 8 import Databrary.Store.Types 9 import Databrary.Model.Id 10 import Databrary.Model.Token.Types 11 12 uploadFile :: Upload -> Storage -> RawFilePath 13 uploadFile t s = storageUpload s </> unId (view t :: Id Token)