@@ -49,7 +49,7 @@ embeddedLookup root pieces =
49toEntry :: (Piece, EmbeddedEntry) -> Either FolderName File
49toEntry :: (Piece, EmbeddedEntry) -> Either FolderName File
50toEntry (name, EEFolder{}) = Left name
50toEntry (name, EEFolder{}) = Left name
51toEntry (name, EEFile bs) = Right File
51toEntry (name, EEFile bs) = Right File
52− { fileGetSize = S.length bs
52+ { fileGetSize = fromIntegral $ S.length bs
53 , fileToResponse = \s h -> W.responseBuilder s h $ fromByteString bs
53 , fileToResponse = \s h -> W.responseBuilder s h $ fromByteString bs
54 , fileName = name
54 , fileName = name
55 , fileGetHash = return $ Just $ runHash bs
55 , fileGetHash = return $ Just $ runHash bs
@@ -86,7 +86,7 @@ toEmbedded fps =
87bsToFile :: Piece -> ByteString -> File
87bsToFile :: Piece -> ByteString -> File
88bsToFile name bs = File
88bsToFile name bs = File
89− { fileGetSize = S.length bs
89+ { fileGetSize = fromIntegral $ S.length bs
90 , fileToResponse = \s h -> W.responseBuilder s h $ fromByteString bs
90 , fileToResponse = \s h -> W.responseBuilder s h $ fromByteString bs
91 , fileName = name
91 , fileName = name
92 , fileGetHash = return $ Just $ runHash bs
92 , fileGetHash = return $ Just $ runHash bs