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

error in migration script

Browse source
This commit is contained in:
nek0 2015-09-28 01:00:58 +02:00
parent 981d595ac7
commit e1203b9d3d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Migrations/0.0.3-0.0.4/Migration.hs
View file

@ -32,7 +32,7 @@ main = do
tups <- sequence $ map (\entry -> tups <- sequence $ map (\entry ->
case entry of case entry of
[("id", theId), _, ("path", SqlByteString path), _, _, _, ("owner", SqlInteger owner), _, _, _, _, ("album", SqlInteger album), _, _] -> do [("id", theId), _, ("path", SqlByteString path), _, _, _, ("owner", SqlInteger owner), _, _, _, _, ("album", SqlInteger album), _, _] -> do
let newName = takeBaseName (B.unpack path) ++ "_thumb.jpg" let newName = takeBaseName (B.unpack path) ++ "_preview.jpg"
let newPath = "static" FP.</> "data" FP.</> show owner FP.</> show album FP.</> newName let newPath = "static" FP.</> "data" FP.</> show owner FP.</> show album FP.</> newName
pWidth <- withMagickWandGenesis $ do pWidth <- withMagickWandGenesis $ do
(_, w) <- magickWand (_, w) <- magickWand