simplify Rastimation

kmcallister · Oct 26, 2011 · cb0d22b · cb0d22b
1 parent cc54238
commit cb0d22b
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/Propane/Types.hs b/Propane/Types.hs
@@ -32,7 +32,5 @@ data Size = Size
 newtype Raster = Raster (R.Array R.DIM3 Word8)
     deriving (Eq, Show, Typeable)
 
-data Rastimation = Rastimation
-    { raFrameDuration :: Time
-    , raFrames        :: S.Seq Raster
-    } deriving (Eq, Show, Typeable)
+newtype Rastimation = Rastimation (S.Seq Raster)
+    deriving (Eq, Show, Typeable)