Commit 6e82ef36 authored by Andrew Gibiansky's avatar Andrew Gibiansky

Fix formatting in Juicypixel.hs

parent 89c52019
{-# 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]
\ No newline at end of file
format im@(Image w h _) = Display [png w h . base64 . toStrict . encodePng $ im]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment