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

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