Permalink
Browse files

Fixed warnings uncovered by GHC 6.12.

  • Loading branch information...
1 parent 9cdf36d commit 5c065087cc835c3fd554935d65003c0d13d46847 jgm@berkeley.edu committed Dec 31, 2009
Showing with 1 addition and 3 deletions.
  1. +1 −3 Codec/Archive/Zip.hs
View
@@ -60,11 +60,9 @@ import Data.Binary
import Data.Binary.Get
import Data.Binary.Put
import Data.List ( nub, find )
-import Data.Maybe
import Text.Printf
import System.FilePath
import System.Directory ( doesDirectoryExist, getDirectoryContents, createDirectoryIfMissing )
-import qualified Control.Monad.State as S
import Control.Monad ( when, unless, zipWithM, liftM )
import System.Directory ( getModificationTime )
import System.IO ( stderr, hPutStrLn )
@@ -427,7 +425,7 @@ putArchive archive = do
let localFileSizes = map localFileSize $ zEntries archive
let offsets = scanl (+) 0 localFileSizes
let cdOffset = last offsets
- zipWithM putFileHeader offsets (zEntries archive)
+ _ <- zipWithM putFileHeader offsets (zEntries archive)
putDigitalSignature $ zSignature archive
putWord32le 0x06054b50
putWord16le 0 -- disk number

0 comments on commit 5c06508

Please sign in to comment.