error in migration script

This commit is contained in:
nek0 2015-09-28 01:35:34 +02:00
parent 7e52a12226
commit 2d2e12a109

View file

@ -47,7 +47,7 @@ main = do
setImageCompressionQuality w 95
writeImage w (Just (decodeString newPath))
return w2
return [SqlByteString (B.pack newPath), SqlInteger (fromIntegral pWidth), theId]
return [SqlByteString (B.pack $ '/':newPath), SqlInteger (fromIntegral pWidth), theId]
_ ->
error "malformed entry"
) rows