nek0/eidolon
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

version bump

Browse source
This commit is contained in:
nek0 2016-08-30 15:11:02 +02:00
parent 0a45da609e
commit 7ec8c0c855
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Handler/Upload.hs
View file

@ -156,9 +156,9 @@ generateThumbs path uId aId = do
oHeight = fromIntegral $ fromJust $ PM.lookup Height meta :: Int oHeight = fromIntegral $ fromJust $ PM.lookup Height meta :: Int
tWidth = floor (fromIntegral oWidth / fromIntegral oHeight * fromIntegral tHeight :: Double) tWidth = floor (fromIntegral oWidth / fromIntegral oHeight * fromIntegral tHeight :: Double)
tHeight = 230 :: Int tHeight = 230 :: Int
pWidth = 1380 :: Int pHeight = 600 :: Int
pScale = (fromIntegral pWidth :: Double) / (fromIntegral oWidth :: Double) pScale = (fromIntegral pHeight :: Double) / (fromIntegral oHeight :: Double)
pHeight = floor (fromIntegral oHeight * pScale) pWidth = floor (fromIntegral oWidth * pScale)
tPix = scale (tWidth, tHeight) origPix tPix = scale (tWidth, tHeight) origPix
pPix = scale (pWidth, pHeight) origPix pPix = scale (pWidth, pHeight) origPix
liftIO $ saveJpgImage 95 tPath $ ImageRGBA8 tPix liftIO $ saveJpgImage 95 tPath $ ImageRGBA8 tPix

2
eidolon.cabal
View file

@ -1,5 +1,5 @@
name: eidolon name: eidolon
version: 0.0.7 version: 0.1.0.0
synopsis: Image gallery in Yesod synopsis: Image gallery in Yesod
homepage: https://eidolon.nek0.eu homepage: https://eidolon.nek0.eu
license: AGPL-3 license: AGPL-3