Do not return the list of custom chunks in reversed form

mrkkrp · Dec 6, 2016 · cb88c87 · cb88c87
1 parent e211743
commit cb88c87
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Codec/Audio/Wave.hs b/Codec/Audio/Wave.hs
@@ -374,8 +374,9 @@ readWaveFile path = liftIO . withFile path ReadMode $ \h -> do
         case (chunkTag, chunkBody) of
           ("data", _) ->
             return wave
-              { waveDataOffset = fromIntegral offset + 8
-              , waveDataSize   = chunkSize }
+              { waveDataOffset  = fromIntegral offset + 8
+              , waveDataSize    = chunkSize
+              , waveOtherChunks = reverse (waveOtherChunks wave) }
           (tag, Nothing) ->
             giveup (NonDataChunkIsTooLong tag)
           ("fmt ", Just body) ->