Browse files

Rename Summary to SummarySO throughout

Update for zoom-cache git
  • Loading branch information...
1 parent afc79ad commit b6eeb219fe9b24fda1fea766284208a932f1a2bb @kfish committed Dec 2, 2011
Showing with 7 additions and 7 deletions.
  1. +7 −7 Data/ZoomCache/Texture.hs
View
14 Data/ZoomCache/Texture.hs
@@ -195,17 +195,17 @@ rawToTexture (ZoomRaw xs) | typeOf xs == typeOf (undefined :: [TextureSlice]) =
enumTexture :: (Functor m, MonadIO m)
=> I.Enumeratee [Stream] [(SampleOffset, TextureSlice)] m a
-enumTexture = I.joinI . enumPackets . I.mapChunks (concatMap f)
+enumTexture = I.joinI . enumPacketSOs . I.mapChunks (concatMap f)
where
- f :: Packet -> [(SampleOffset, TextureSlice)]
- f Packet{..} = zip packetSampleOffsets (rawToTexture packetData)
+ f :: PacketSO -> [(SampleOffset, TextureSlice)]
+ f PacketSO{..} = zip packetSOSampleOffsets (rawToTexture packetSOData)
enumSummaryTexture :: (Functor m, MonadIO m)
=> Int
- -> I.Enumeratee [Stream] [Summary TextureSlice] m a
+ -> I.Enumeratee [Stream] [SummarySO TextureSlice] m a
enumSummaryTexture level =
- I.joinI . enumSummaryLevel level .
+ I.joinI . enumSummarySOLevel level .
I.mapChunks (catMaybes . map toSD)
where
- toSD :: ZoomSummary -> Maybe (Summary TextureSlice)
- toSD (ZoomSummary s) = cast s
+ toSD :: ZoomSummarySO -> Maybe (SummarySO TextureSlice)
+ toSD (ZoomSummarySO s) = cast s

0 comments on commit b6eeb21

Please sign in to comment.