changed preview images to be of 1380px fixed width. also version bump of yesod-newsfeed.

Handler/Upload.hs

@@ -133,8 +133,8 @@ generateThumb path userId albumId = do
     h1 <- getImageHeight w
     let h2 = 230
     let w2 = floor (fromIntegral w1 / fromIntegral h1 * fromIntegral h2 :: Double)
-    let h3 = h1 `div` 2
-    let w3 = w1 `div` 2
+    let w3 = 1380
+    let h3 = floor (fromIntegral h1 / fromIntegral w1 * fromIntegral w3 :: Double)
     setImageAlphaChannel w deactivateAlphaChannel
     setImageAlphaChannel p deactivateAlphaChannel
     setImageFormat w "jpeg"

Migrations/0.0.3-0.0.4/Migration.hs

@@ -39,8 +39,8 @@ main = do
           readImage w (decodeString $ tail $ B.unpack path)
           w1 <- getImageWidth w
           h1 <- getImageHeight w
-          let w2 = w1 `div` 2
-          let h2 = h1 `div` 2
+          let w2 = 1380
+          let h2 = floor (fromIntegral h1 / fromIntegral w1 * fromIntegral w2 :: Double)
           setImageAlphaChannel w deactivateAlphaChannel
           setImageFormat w (T.pack "jpeg")
           resizeImage w w2 h2 lanczosFilter 1

eidolon.cabal

@@ -112,7 +112,7 @@ library
                  , yesod-markdown                >= 0.10
                  , blaze-markup                  >= 0.7
                  , wai                           >= 3.0
-                 , yesod-newsfeed                >= 1.4
+                 , yesod-newsfeed                >= 1.5
                  , unix                          >= 2.7
                  -- for Migrations
                  , HDBC