error in migration script

This commit is contained in:
nek0 2015-09-28 01:00:58 +02:00
parent 981d595ac7
commit e1203b9d3d

View file

@ -32,7 +32,7 @@ main = do
tups <- sequence $ map (\entry ->
case entry of
[("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
pWidth <- withMagickWandGenesis $ do
(_, w) <- magickWand