error in migration script

2015-09-28 01:35:34 +02:00 · 2015-09-28 01:35:34 +02:00 · 2d2e12a109
commit 2d2e12a109
parent 7e52a12226
1 changed files with 1 additions and 1 deletions
--- 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