moffy-samples-events-0.2.2.2: src/Control/Moffy/Samples/Viewable/Image.hs

{-# 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 Show
data Png = Png { pngWidth :: Double, pngHeight :: Double, pngData :: BS.ByteString }
	deriving (Show, Generic)
numbered [t| Image |]

instance NFData Png