D.Z.Texture: add textureIdentifiers, export types and instances

kfish · Nov 23, 2011 · 35aedda · 35aedda
1 parent 164fd8f
commit 35aedda
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/Data/ZoomCache/Texture.hs b/Data/ZoomCache/Texture.hs
@@ -42,6 +42,15 @@ Field encoding formats:
 ----------------------------------------------------------------------
 
 module Data.ZoomCache.Texture (
+    -- * Types
+      TextureSlice(..)
+
+    -- * Zoom-cache codec instances
+    , SummaryData(..)
+    , SummaryWork(..)
+
+    -- * Codec identifiers
+    , textureIdentifiers
 ) where
 
 import Blaze.ByteString.Builder
@@ -63,6 +72,11 @@ textureLength = 5
 data TextureSlice = TextureSlice [Float]
     deriving (Show, Typeable)
 
+textureIdentifiers :: [IdentifyCodec]
+textureIdentifiers =
+    [ identifyCodec (undefined :: TextureSlice)
+    ]
+
 ----------------------------------------------------------------------
 
 -- Identifier for track headers