{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE BlockArguments #-} {-# LANGUAGE ViewPatterns #-} {-# LANGUAGE DataKinds, TypeOperators #-} {-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -Wall -fno-warn-tabs #-} module Control.Moffy.Samples.Viewable.Image (Image(..), Png(..)) where 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 numbered [t| Image |]