mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 03:16:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix formatting in Juicypixel.hs

Browse Source
This commit is contained in:
Andrew Gibiansky 2015-08-28 11:09:03 -07:00
parent 89c5201907
commit 6e82ef3613
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ihaskell-display/ihaskell-juicypixels/IHaskell/Display/Juicypixels.hs
View File

@ -1,15 +1,12 @@
{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
module IHaskell.Display.Juicypixels (
module IHaskell.Display,
module Codec.Picture
) where
module IHaskell.Display.Juicypixels (module IHaskell.Display, module Codec.Picture) where
import qualified Codec.Picture as P
import Codec.Picture (Image(..))
import Codec.Picture.Png (PngSavable, encodePng)
import IHaskell.Display (IHaskellDisplay, Display(..), display, png, base64)
import Data.ByteString.Lazy (ByteString, toStrict)
import Codec.Picture (Image(..))
import Codec.Picture.Png (PngSavable, encodePng)
import IHaskell.Display (IHaskellDisplay, Display(..), display, png, base64)
import Data.ByteString.Lazy (ByteString, toStrict)
instance IHaskellDisplay (Image P.Pixel8) where
display = return . format
@ -36,4 +33,4 @@ instance IHaskellDisplay (Image P.PixelRGBA16) where
display = return . format
format :: PngSavable a => Image a -> Display
format im@(Image w h _) = Display [png w h . base64 . toStrict . encodePng $ im]
format im@(Image w h _) = Display [png w h . base64 . toStrict . encodePng $ im]