deriving Show

This commit is contained in:
Joey Hess 2014-08-01 16:30:23 -04:00
parent 9636cfd9e1
commit f4f82e2741

View file

@ -21,7 +21,7 @@ import Data.Int
-- Currently chunks are all fixed size, but other chunking methods -- Currently chunks are all fixed size, but other chunking methods
-- may be added. -- may be added.
data ChunkMethod = FixedSizeChunks ChunkSize | UnknownChunks String data ChunkMethod = FixedSizeChunks ChunkSize | UnknownChunks String
deriving (Ord, Eq) deriving (Ord, Eq, Show)
type ChunkSize = Int64 type ChunkSize = Int64