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)