{-# 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