{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE BlockArguments #-}
{-# LANGUAGE ViewPatterns #-}
{-# LANGUAGE DataKinds, TypeOperators #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE DeriveGeneric #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Control.Moffy.Samples.Viewable.Image (Image(..), Png(..)) where

import GHC.Generics
import Control.DeepSeq

import Data.Type.Set
import qualified Data.ByteString as BS

import Control.Moffy.Samples.Viewable.Basic (Position)

data Image = Image' Position Png deriving Int -> Image -> ShowS
[Image] -> ShowS
Image -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Image] -> ShowS
$cshowList :: [Image] -> ShowS
show :: Image -> String
$cshow :: Image -> String
showsPrec :: Int -> Image -> ShowS
$cshowsPrec :: Int -> Image -> ShowS
Show
data Png = Png { Png -> Double
pngWidth :: Double, Png -> Double
pngHeight :: Double, Png -> ByteString
pngData :: BS.ByteString }
	deriving (Int -> Png -> ShowS
[Png] -> ShowS
Png -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Png] -> ShowS
$cshowList :: [Png] -> ShowS
show :: Png -> String
$cshow :: Png -> String
showsPrec :: Int -> Png -> ShowS
$cshowsPrec :: Int -> Png -> ShowS
Show, forall x. Rep Png x -> Png
forall x. Png -> Rep Png x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Png x -> Png
$cfrom :: forall x. Png -> Rep Png x
Generic)
numbered [t| Image |]

instance NFData Png