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