diff --git a/Handler/Upload.hs b/Handler/Upload.hs index 2c5f6cd..50045ab 100755 --- a/Handler/Upload.hs +++ b/Handler/Upload.hs @@ -156,9 +156,9 @@ generateThumbs path uId aId = do oHeight = fromIntegral $ fromJust $ PM.lookup Height meta :: Int tWidth = floor (fromIntegral oWidth / fromIntegral oHeight * fromIntegral tHeight :: Double) tHeight = 230 :: Int - pWidth = 1380 :: Int - pScale = (fromIntegral pWidth :: Double) / (fromIntegral oWidth :: Double) - pHeight = floor (fromIntegral oHeight * pScale) + pHeight = 600 :: Int + pScale = (fromIntegral pHeight :: Double) / (fromIntegral oHeight :: Double) + pWidth = floor (fromIntegral oWidth * pScale) tPix = scale (tWidth, tHeight) origPix pPix = scale (pWidth, pHeight) origPix liftIO $ saveJpgImage 95 tPath $ ImageRGBA8 tPix diff --git a/eidolon.cabal b/eidolon.cabal index 2bfc9d5..e2d74f8 100755 --- a/eidolon.cabal +++ b/eidolon.cabal @@ -1,5 +1,5 @@ name: eidolon -version: 0.0.7 +version: 0.1.0.0 synopsis: Image gallery in Yesod homepage: https://eidolon.nek0.eu license: AGPL-3