From 7ec8c0c855b07f2a700d291159b654f0cb2e2057 Mon Sep 17 00:00:00 2001 From: nek0 Date: Tue, 30 Aug 2016 15:11:02 +0200 Subject: [PATCH] version bump --- Handler/Upload.hs | 6 +++--- eidolon.cabal | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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