readFileSize :: FilePath -> IO Integer
readFileSize path = do
    size <- contentSize path
    case size of
        Just s -> do
            return $ toInteger s
        Nothing -> do
            return 0
readFileSize :: FilePath -> IO Integer
readFileSize path = do
    size <- contentSize path
    case size of
        Just s -> do
            return $ toInteger s
        Nothing -> do
            return 0
readFileSize path = do
    size <- contentSize path
    case size of
        Just s -> do
            return $ toInteger s
        Nothing -> do
            return 0