diff --git a/Migrations/0.0.3-0.0.4/Migration.hs b/Migrations/0.0.3-0.0.4/Migration.hs index e37f427..9778d5b 100644 --- a/Migrations/0.0.3-0.0.4/Migration.hs +++ b/Migrations/0.0.3-0.0.4/Migration.hs @@ -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