note that divMod isn't so nice
authorDon Stewart <dons@cse.unsw.edu.au>
Thu, 11 Jan 2007 16:58:42 +0000 (17:58 +0100)
committerDon Stewart <dons@cse.unsw.edu.au>
Thu, 11 Jan 2007 16:58:42 +0000 (17:58 +0100)
src/Data/Binary/Put.hs

index 356ace6..b6ccb23 100644 (file)
@@ -172,6 +172,8 @@ putLazyByteString bs = flush >> mapM_ yield (L.toChunks bs)
 
 ------------------------------------------------------------------------
 
+-- TODO use shifts instead of divMod
+
 -- | Write a Word16 in big endian format
 putWord16be :: Word16 -> Put ()
 putWord16be w16 = do