nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

creating directories if neccessary

Browse source
This commit is contained in:
nek0 2016-08-27 13:11:14 +02:00
parent 258b92ec39
commit 258400ddb3
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Handler/Upload.hs
View file

@ -193,6 +193,12 @@ writeOnDrive fil userId albumId = do
let filen = show $ length (albumContent album) + 1 let filen = show $ length (albumContent album) + 1
let ext = FP.takeExtension $ T.unpack $ fileName fil let ext = FP.takeExtension $ T.unpack $ fileName fil
let path = "static" FP.</> "data" FP.</> T.unpack (extractKey userId) FP.</> T.unpack (extractKey albumId) FP.</> filen ++ ext let path = "static" FP.</> "data" FP.</> T.unpack (extractKey userId) FP.</> T.unpack (extractKey albumId) FP.</> filen ++ ext
dde <- liftIO $ doesDirectoryExist $ FP.dropFileName path
if not dde
then
liftIO $ createDirectoryIfMissing True $ FP.dropFileName path
else
return ()
liftIO $ fileMove fil path liftIO $ fileMove fil path
return path return path