<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ --> <title>Codec/Archive/Zip.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE CPP #-}</span> <a name="line-2"></a><span class='hs-comment'>------------------------------------------------------------------------</span> <a name="line-3"></a><span class='hs-comment'>-- |</span> <a name="line-4"></a><span class='hs-comment'>-- Module : Codec.Archive.Zip</span> <a name="line-5"></a><span class='hs-comment'>-- Copyright : John MacFarlane</span> <a name="line-6"></a><span class='hs-comment'>-- License : GPL 2 (see LICENSE)</span> <a name="line-7"></a><span class='hs-comment'>--</span> <a name="line-8"></a><span class='hs-comment'>-- Maintainer : John MacFarlane < jgm at berkeley dot edu ></span> <a name="line-9"></a><span class='hs-comment'>-- Stability : unstable</span> <a name="line-10"></a><span class='hs-comment'>-- Portability : so far only tested on GHC</span> <a name="line-11"></a><span class='hs-comment'>--</span> <a name="line-12"></a><span class='hs-comment'>-- The zip-archive library provides functions for creating, modifying,</span> <a name="line-13"></a><span class='hs-comment'>-- and extracting files from zip archives.</span> <a name="line-14"></a><span class='hs-comment'>--</span> <a name="line-15"></a><span class='hs-comment'>-- Certain simplifying assumptions are made about the zip archives: in</span> <a name="line-16"></a><span class='hs-comment'>-- particular, there is no support for encryption, zip files that span</span> <a name="line-17"></a><span class='hs-comment'>-- multiple disks, ZIP64, OS-specific file attributes, or compression</span> <a name="line-18"></a><span class='hs-comment'>-- methods other than Deflate. However, the library should be able to</span> <a name="line-19"></a><span class='hs-comment'>-- read the most common zip archives, and the archives it produces should</span> <a name="line-20"></a><span class='hs-comment'>-- be readable by all standard unzip programs.</span> <a name="line-21"></a><span class='hs-comment'>--</span> <a name="line-22"></a><span class='hs-comment'>-- As an example of the use of the library, a standalone zip archiver</span> <a name="line-23"></a><span class='hs-comment'>-- and extracter, Zip.hs, is provided in the source distribution.</span> <a name="line-24"></a><span class='hs-comment'>--</span> <a name="line-25"></a><span class='hs-comment'>-- For more information on the format of zip archives, consult</span> <a name="line-26"></a><span class='hs-comment'>-- <<a href="http://www.pkware.com/documents/casestudies/APPNOTE.TXT">http://www.pkware.com/documents/casestudies/APPNOTE.TXT</a>></span> <a name="line-27"></a><span class='hs-comment'>------------------------------------------------------------------------</span> <a name="line-28"></a> <a name="line-29"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Codec</span><span class='hs-varop'>.</span><span class='hs-conid'>Archive</span><span class='hs-varop'>.</span><span class='hs-conid'>Zip</span> <a name="line-30"></a> <span class='hs-layout'>(</span> <a name="line-31"></a> <a name="line-32"></a> <span class='hs-comment'>-- * Data structures</span> <a name="line-33"></a> <span class='hs-conid'>Archive</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-34"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>Entry</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-35"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>CompressionMethod</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-36"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>ZipOption</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <a name="line-37"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>emptyArchive</span> <a name="line-38"></a> <a name="line-39"></a> <span class='hs-comment'>-- * Pure functions for working with zip archives</span> <a name="line-40"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>toArchive</span> <a name="line-41"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>fromArchive</span> <a name="line-42"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>filesInArchive</span> <a name="line-43"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>addEntryToArchive</span> <a name="line-44"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>deleteEntryFromArchive</span> <a name="line-45"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>findEntryByPath</span> <a name="line-46"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>fromEntry</span> <a name="line-47"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>toEntry</span> <a name="line-48"></a> <a name="line-49"></a> <span class='hs-comment'>-- * IO functions for working with zip archives</span> <a name="line-50"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>readEntry</span> <a name="line-51"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>writeEntry</span> <a name="line-52"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>addFilesToArchive</span> <a name="line-53"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>extractFilesFromArchive</span> <a name="line-54"></a> <a name="line-55"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-56"></a> <a name="line-57"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Time</span> <span class='hs-layout'>(</span> <span class='hs-varid'>toUTCTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>addToClockTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>CalendarTime</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>ClockTime</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>TimeDiff</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-58"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Bits</span> <span class='hs-layout'>(</span> <span class='hs-varid'>shiftL</span><span class='hs-layout'>,</span> <span class='hs-varid'>shiftR</span><span class='hs-layout'>,</span> <span class='hs-layout'>(</span><span class='hs-varop'>.&.</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span> <a name="line-59"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Binary</span> <a name="line-60"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Binary</span><span class='hs-varop'>.</span><span class='hs-conid'>Get</span> <a name="line-61"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Binary</span><span class='hs-varop'>.</span><span class='hs-conid'>Put</span> <a name="line-62"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>List</span> <span class='hs-layout'>(</span> <span class='hs-varid'>nub</span><span class='hs-layout'>,</span> <span class='hs-varid'>find</span> <span class='hs-layout'>)</span> <a name="line-63"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Printf</span> <a name="line-64"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>FilePath</span> <a name="line-65"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Directory</span> <span class='hs-layout'>(</span> <span class='hs-varid'>doesDirectoryExist</span><span class='hs-layout'>,</span> <span class='hs-varid'>getDirectoryContents</span><span class='hs-layout'>,</span> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-layout'>)</span> <a name="line-66"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span> <span class='hs-varid'>when</span><span class='hs-layout'>,</span> <span class='hs-varid'>unless</span><span class='hs-layout'>,</span> <span class='hs-varid'>zipWithM</span><span class='hs-layout'>,</span> <span class='hs-varid'>liftM</span> <span class='hs-layout'>)</span> <a name="line-67"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Directory</span> <span class='hs-layout'>(</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-layout'>)</span> <a name="line-68"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span> <span class='hs-varid'>stderr</span><span class='hs-layout'>,</span> <span class='hs-varid'>hPutStrLn</span> <span class='hs-layout'>)</span> <a name="line-69"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Digest</span><span class='hs-varop'>.</span><span class='hs-conid'>CRC32</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>CRC32</span> <a name="line-70"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>M</span> <a name="line-71"></a> <a name="line-72"></a><span class='hs-cpp'>#ifndef _WINDOWS</span> <a name="line-73"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Posix</span><span class='hs-varop'>.</span><span class='hs-conid'>Files</span> <span class='hs-layout'>(</span> <span class='hs-varid'>setFileTimes</span> <span class='hs-layout'>)</span> <a name="line-74"></a><span class='hs-cpp'>#endif</span> <a name="line-75"></a> <a name="line-76"></a><span class='hs-comment'>-- from bytestring</span> <a name="line-77"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>B</span> <a name="line-78"></a> <a name="line-79"></a><span class='hs-comment'>-- from utf8-string</span> <a name="line-80"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</span><span class='hs-varop'>.</span><span class='hs-conid'>UTF8</span> <span class='hs-layout'>(</span> <span class='hs-varid'>toString</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromString</span> <span class='hs-layout'>)</span> <a name="line-81"></a> <a name="line-82"></a><span class='hs-comment'>-- from zlib</span> <a name="line-83"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Codec</span><span class='hs-varop'>.</span><span class='hs-conid'>Compression</span><span class='hs-varop'>.</span><span class='hs-conid'>Zlib</span><span class='hs-varop'>.</span><span class='hs-conid'>Raw</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Zlib</span> <a name="line-84"></a> <a name="line-85"></a><span class='hs-comment'>------------------------------------------------------------------------</span> <a name="line-86"></a> <a name="line-87"></a><a name="Archive"></a><span class='hs-comment'>-- | Structured representation of a zip archive, including directory</span> <a name="line-88"></a><a name="Archive"></a><span class='hs-comment'>-- information and contents (in lazy bytestrings).</span> <a name="line-89"></a><a name="Archive"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Archive</span> <a name="line-90"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>zEntries</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Entry</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ Files in zip archive</span> <a name="line-91"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zSignature</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ Digital signature</span> <a name="line-92"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zComment</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ Comment for whole zip archive</span> <a name="line-93"></a> <span class='hs-layout'>}</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>)</span> <a name="line-94"></a> <a name="line-95"></a><a name="Entry"></a><span class='hs-comment'>-- | Representation of an archived file, including content and metadata.</span> <a name="line-96"></a><a name="Entry"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Entry</span> <a name="line-97"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ Relative path, using '/' as separator</span> <a name="line-98"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CompressionMethod</span> <span class='hs-comment'>-- ^ Compression method</span> <a name="line-99"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eLastModified</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ Modification time (seconds since unix epoch)</span> <a name="line-100"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCRC32</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ CRC32 checksum</span> <a name="line-101"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ Compressed size in bytes</span> <a name="line-102"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ Uncompressed size in bytes</span> <a name="line-103"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExtraField</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ Extra field - unused by this library</span> <a name="line-104"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eFileComment</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ File comment - unused by this library</span> <a name="line-105"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eInternalFileAttributes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word16</span> <span class='hs-comment'>-- ^ Internal file attributes - unused by this library</span> <a name="line-106"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExternalFileAttributes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ External file attributes (system-dependent)</span> <a name="line-107"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedData</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ Compressed contents of file</span> <a name="line-108"></a> <span class='hs-layout'>}</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-109"></a> <a name="line-110"></a><a name="CompressionMethod"></a><span class='hs-comment'>-- | Compression methods.</span> <a name="line-111"></a><a name="CompressionMethod"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>CompressionMethod</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Deflate</span> <a name="line-112"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>NoCompression</span> <a name="line-113"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-114"></a> <a name="line-115"></a><a name="ZipOption"></a><span class='hs-comment'>-- | Options for 'addFilesToArchive' and 'extractFilesFromArchive'.</span> <a name="line-116"></a><a name="ZipOption"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>ZipOption</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>OptRecursive</span> <span class='hs-comment'>-- ^ Recurse into directories when adding files</span> <a name="line-117"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>OptVerbose</span> <span class='hs-comment'>-- ^ Print information to stderr</span> <a name="line-118"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-119"></a> <a name="line-120"></a><a name="emptyArchive"></a><span class='hs-comment'>-- | A zip archive with no contents.</span> <a name="line-121"></a><span class='hs-definition'>emptyArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Archive</span> <a name="line-122"></a><span class='hs-definition'>emptyArchive</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Archive</span> <a name="line-123"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>zEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span> <a name="line-124"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zSignature</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span> <a name="line-125"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zComment</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-layout'>}</span> <a name="line-126"></a> <a name="line-127"></a><a name="toArchive"></a><span class='hs-comment'>-- | Reads an 'Archive' structure from a raw zip archive (in a lazy bytestring).</span> <a name="line-128"></a><span class='hs-definition'>toArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <a name="line-129"></a><span class='hs-definition'>toArchive</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>runGet</span> <span class='hs-varid'>getArchive</span> <a name="line-130"></a> <a name="line-131"></a><a name="fromArchive"></a><span class='hs-comment'>-- | Writes an 'Archive' structure to a raw zip archive (in a lazy bytestring).</span> <a name="line-132"></a><span class='hs-definition'>fromArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <a name="line-133"></a><span class='hs-definition'>fromArchive</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>runPut</span> <span class='hs-varop'>.</span> <span class='hs-varid'>putArchive</span> <a name="line-134"></a> <a name="line-135"></a><a name="filesInArchive"></a><span class='hs-comment'>-- | Returns a list of files in a zip archive.</span> <a name="line-136"></a><span class='hs-definition'>filesInArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <a name="line-137"></a><span class='hs-definition'>filesInArchive</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>eRelativePath</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>zEntries</span> <a name="line-138"></a> <a name="line-139"></a><a name="addEntryToArchive"></a><span class='hs-comment'>-- | Adds an entry to a zip archive, or updates an existing entry.</span> <a name="line-140"></a><span class='hs-definition'>addEntryToArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <a name="line-141"></a><span class='hs-definition'>addEntryToArchive</span> <span class='hs-varid'>entry</span> <span class='hs-varid'>archive</span> <span class='hs-keyglyph'>=</span> <a name="line-142"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>archive'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>deleteEntryFromArchive</span> <span class='hs-layout'>(</span><span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <span class='hs-varid'>archive</span> <a name="line-143"></a> <span class='hs-varid'>oldEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive'</span> <a name="line-144"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>archive'</span> <span class='hs-layout'>{</span> <span class='hs-varid'>zEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>entry</span> <span class='hs-conop'>:</span> <span class='hs-varid'>oldEntries</span> <span class='hs-layout'>}</span> <a name="line-145"></a> <a name="line-146"></a><a name="deleteEntryFromArchive"></a><span class='hs-comment'>-- | Deletes an entry from a zip archive.</span> <a name="line-147"></a><span class='hs-definition'>deleteEntryFromArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <a name="line-148"></a><span class='hs-definition'>deleteEntryFromArchive</span> <span class='hs-varid'>path</span> <span class='hs-varid'>archive</span> <span class='hs-keyglyph'>=</span> <a name="line-149"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>path'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varid'>path</span> <a name="line-150"></a> <span class='hs-varid'>newEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>e</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>e</span> <span class='hs-varop'>/=</span> <span class='hs-varid'>path'</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <a name="line-151"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>archive</span> <span class='hs-layout'>{</span> <span class='hs-varid'>zEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newEntries</span> <span class='hs-layout'>}</span> <a name="line-152"></a> <a name="line-153"></a><a name="findEntryByPath"></a><span class='hs-comment'>-- | Returns Just the zip entry with the specified path, or Nothing.</span> <a name="line-154"></a><span class='hs-definition'>findEntryByPath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Entry</span> <a name="line-155"></a><span class='hs-definition'>findEntryByPath</span> <span class='hs-varid'>path</span> <span class='hs-varid'>archive</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>find</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>e</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>path</span> <span class='hs-varop'>==</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span><span class='hs-layout'>)</span> <a name="line-156"></a> <a name="line-157"></a><a name="fromEntry"></a><span class='hs-comment'>-- | Returns uncompressed contents of zip entry.</span> <a name="line-158"></a><span class='hs-definition'>fromEntry</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <a name="line-159"></a><span class='hs-definition'>fromEntry</span> <span class='hs-varid'>entry</span> <span class='hs-keyglyph'>=</span> <a name="line-160"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>uncompressedData</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>decompressData</span> <span class='hs-layout'>(</span><span class='hs-varid'>eCompressionMethod</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>eCompressedData</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <a name="line-161"></a> <span class='hs-keyword'>in</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>eCRC32</span> <span class='hs-varid'>entry</span> <span class='hs-varop'>==</span> <span class='hs-conid'>CRC32</span><span class='hs-varop'>.</span><span class='hs-varid'>crc32</span> <span class='hs-varid'>uncompressedData</span> <a name="line-162"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>uncompressedData</span> <a name="line-163"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>error</span> <span class='hs-str'>"CRC32 mismatch"</span> <a name="line-164"></a> <a name="line-165"></a><a name="toEntry"></a><span class='hs-comment'>-- | Create an 'Entry' with specified file path, modification time, and contents.</span> <a name="line-166"></a><span class='hs-definition'>toEntry</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ File path for entry</span> <a name="line-167"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ Modification time for entry (seconds since unix epoch)</span> <a name="line-168"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ Contents of entry</span> <a name="line-169"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Entry</span> <a name="line-170"></a><span class='hs-definition'>toEntry</span> <span class='hs-varid'>path</span> <span class='hs-varid'>modtime</span> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'>=</span> <a name="line-171"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>uncompressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>contents</span> <a name="line-172"></a> <span class='hs-varid'>compressedData</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compressData</span> <span class='hs-conid'>Deflate</span> <span class='hs-varid'>contents</span> <a name="line-173"></a> <span class='hs-varid'>compressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>compressedData</span> <a name="line-174"></a> <span class='hs-comment'>-- only use compression if it helps!</span> <a name="line-175"></a> <span class='hs-layout'>(</span><span class='hs-varid'>compressionMethod</span><span class='hs-layout'>,</span> <span class='hs-varid'>finalData</span><span class='hs-layout'>,</span> <span class='hs-varid'>finalSize</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-176"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>uncompressedSize</span> <span class='hs-varop'><=</span> <span class='hs-varid'>compressedSize</span> <a name="line-177"></a> <span class='hs-keyword'>then</span> <span class='hs-layout'>(</span><span class='hs-conid'>NoCompression</span><span class='hs-layout'>,</span> <span class='hs-varid'>contents</span><span class='hs-layout'>,</span> <span class='hs-varid'>uncompressedSize</span><span class='hs-layout'>)</span> <a name="line-178"></a> <span class='hs-keyword'>else</span> <span class='hs-layout'>(</span><span class='hs-conid'>Deflate</span><span class='hs-layout'>,</span> <span class='hs-varid'>compressedData</span><span class='hs-layout'>,</span> <span class='hs-varid'>compressedSize</span><span class='hs-layout'>)</span> <a name="line-179"></a> <span class='hs-varid'>crc32</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>CRC32</span><span class='hs-varop'>.</span><span class='hs-varid'>crc32</span> <span class='hs-varid'>contents</span> <a name="line-180"></a> <span class='hs-keyword'>in</span> <span class='hs-conid'>Entry</span> <span class='hs-layout'>{</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>path</span> <a name="line-181"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compressionMethod</span> <a name="line-182"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eLastModified</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>modtime</span> <a name="line-183"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCRC32</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>crc32</span> <a name="line-184"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>finalSize</span> <a name="line-185"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>uncompressedSize</span> <a name="line-186"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExtraField</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <a name="line-187"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eFileComment</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <a name="line-188"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eInternalFileAttributes</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- potentially non-text</span> <a name="line-189"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExternalFileAttributes</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- appropriate if from stdin</span> <a name="line-190"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedData</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>finalData</span> <a name="line-191"></a> <span class='hs-layout'>}</span> <a name="line-192"></a> <a name="line-193"></a><a name="readEntry"></a><span class='hs-comment'>-- | Generates a 'Entry' from a file or directory.</span> <a name="line-194"></a><span class='hs-definition'>readEntry</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ZipOption</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Entry</span> <a name="line-195"></a><span class='hs-definition'>readEntry</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-196"></a> <span class='hs-varid'>isDir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>path</span> <a name="line-197"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>path'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>normalise</span> <span class='hs-varop'>$</span> <a name="line-198"></a> <span class='hs-varid'>path</span> <span class='hs-varop'>++</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>isDir</span> <span class='hs-keyword'>then</span> <span class='hs-str'>"/"</span> <span class='hs-keyword'>else</span> <span class='hs-str'>""</span> <span class='hs-comment'>-- make sure directories end with /</span> <a name="line-199"></a> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>isDir</span> <a name="line-200"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <a name="line-201"></a> <span class='hs-keyword'>else</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>readFile</span> <span class='hs-varid'>path</span> <a name="line-202"></a> <span class='hs-layout'>(</span><span class='hs-conid'>TOD</span> <span class='hs-varid'>modEpochTime</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>path</span> <a name="line-203"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>entry</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toEntry</span> <span class='hs-varid'>path'</span> <span class='hs-varid'>modEpochTime</span> <span class='hs-varid'>contents</span> <a name="line-204"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-conid'>OptVerbose</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>opts</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-205"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>compmethod</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-varid'>entry</span> <span class='hs-keyword'>of</span> <a name="line-206"></a> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>"deflated"</span> <a name="line-207"></a> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>"stored"</span> <a name="line-208"></a> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-varop'>$</span> <a name="line-209"></a> <span class='hs-varid'>printf</span> <span class='hs-str'>" adding: %s (%s %.f%%)"</span> <span class='hs-layout'>(</span><span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <a name="line-210"></a> <span class='hs-varid'>compmethod</span> <span class='hs-layout'>(</span><span class='hs-num'>100</span> <span class='hs-comment'>-</span> <span class='hs-layout'>(</span><span class='hs-num'>100</span> <span class='hs-varop'>*</span> <span class='hs-varid'>compressionRatio</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-211"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>entry</span> <a name="line-212"></a> <a name="line-213"></a><a name="writeEntry"></a><span class='hs-comment'>-- | Writes contents of an 'Entry' to a file.</span> <a name="line-214"></a><span class='hs-definition'>writeEntry</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ZipOption</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-215"></a><span class='hs-definition'>writeEntry</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>entry</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-216"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>entry</span> <a name="line-217"></a> <span class='hs-comment'>-- create directories if needed</span> <a name="line-218"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>takeDirectory</span> <span class='hs-varid'>path</span> <a name="line-219"></a> <span class='hs-varid'>exists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>dir</span> <a name="line-220"></a> <span class='hs-varid'>unless</span> <span class='hs-varid'>exists</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-221"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-varid'>dir</span> <a name="line-222"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-conid'>OptVerbose</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>opts</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-223"></a> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-varop'>$</span> <span class='hs-str'>" creating: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>dir</span> <a name="line-224"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>length</span> <span class='hs-varid'>path</span> <span class='hs-varop'>></span> <span class='hs-num'>0</span> <span class='hs-varop'>&&</span> <span class='hs-varid'>last</span> <span class='hs-varid'>path</span> <span class='hs-varop'>==</span> <span class='hs-chr'>'/'</span> <span class='hs-comment'>-- path is a directory</span> <a name="line-225"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-226"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <a name="line-227"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-conid'>OptVerbose</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>opts</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-228"></a> <span class='hs-varid'>hPutStrLn</span> <span class='hs-varid'>stderr</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-varid'>entry</span> <span class='hs-keyword'>of</span> <a name="line-229"></a> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>" inflating: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>path</span> <a name="line-230"></a> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>-></span> <span class='hs-str'>"extracting: "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>path</span> <a name="line-231"></a> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>writeFile</span> <span class='hs-varid'>path</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEntry</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <a name="line-232"></a> <span class='hs-comment'>-- Note that last modified times are supported only for POSIX, not for</span> <a name="line-233"></a> <span class='hs-comment'>-- Windows.</span> <a name="line-234"></a> <span class='hs-varid'>setFileTimeStamp</span> <span class='hs-varid'>path</span> <span class='hs-layout'>(</span><span class='hs-varid'>eLastModified</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <a name="line-235"></a> <a name="line-236"></a><a name="addFilesToArchive"></a><span class='hs-comment'>-- | Add the specified files to an 'Archive'. If 'OptRecursive' is specified,</span> <a name="line-237"></a><span class='hs-comment'>-- recursively add files contained in directories. If 'OptVerbose' is specified,</span> <a name="line-238"></a><span class='hs-comment'>-- print messages to stderr.</span> <a name="line-239"></a><span class='hs-definition'>addFilesToArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ZipOption</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Archive</span> <a name="line-240"></a><span class='hs-definition'>addFilesToArchive</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>archive</span> <span class='hs-varid'>files</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-241"></a> <span class='hs-varid'>filesAndChildren</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>if</span> <span class='hs-conid'>OptRecursive</span> <span class='hs-varop'>`elem`</span> <span class='hs-varid'>opts</span> <a name="line-242"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>mapM</span> <span class='hs-varid'>getDirectoryContentsRecursive</span> <span class='hs-varid'>files</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>.</span> <span class='hs-varid'>nub</span> <span class='hs-varop'>.</span> <span class='hs-varid'>concat</span> <a name="line-243"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-varid'>files</span> <a name="line-244"></a> <span class='hs-varid'>entries</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-varid'>readEntry</span> <span class='hs-varid'>opts</span><span class='hs-layout'>)</span> <span class='hs-varid'>filesAndChildren</span> <a name="line-245"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>foldr</span> <span class='hs-varid'>addEntryToArchive</span> <span class='hs-varid'>archive</span> <span class='hs-varid'>entries</span> <a name="line-246"></a> <a name="line-247"></a><a name="extractFilesFromArchive"></a><span class='hs-comment'>-- | Extract all files from an 'Archive', creating directories</span> <a name="line-248"></a><span class='hs-comment'>-- as needed. If 'OptVerbose' is specified, print messages to stderr.</span> <a name="line-249"></a><span class='hs-comment'>-- Note that the last-modified time is set correctly only in POSIX,</span> <a name="line-250"></a><span class='hs-comment'>-- not in Windows.</span> <a name="line-251"></a><span class='hs-definition'>extractFilesFromArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ZipOption</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-252"></a><span class='hs-definition'>extractFilesFromArchive</span> <span class='hs-varid'>opts</span> <span class='hs-varid'>archive</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-varid'>writeEntry</span> <span class='hs-varid'>opts</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <a name="line-253"></a> <a name="line-254"></a><span class='hs-comment'>--------------------------------------------------------------------------------</span> <a name="line-255"></a><span class='hs-comment'>-- Internal functions for reading and writing zip binary format.</span> <a name="line-256"></a> <a name="line-257"></a><a name="many"></a><span class='hs-comment'>-- | Perform a sequence of actions until one returns Nothing;</span> <a name="line-258"></a><span class='hs-comment'>-- return list of results.</span> <a name="line-259"></a><span class='hs-definition'>many</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Monad</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>m</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>a</span><span class='hs-keyglyph'>]</span> <a name="line-260"></a><span class='hs-definition'>many</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-261"></a> <span class='hs-varid'>r</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>p</span> <a name="line-262"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>r</span> <span class='hs-keyword'>of</span> <a name="line-263"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>many</span> <span class='hs-varid'>p</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>.</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-conop'>:</span><span class='hs-layout'>)</span> <a name="line-264"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>[]</span> <a name="line-265"></a> <a name="line-266"></a><a name="zipifyFilePath"></a><span class='hs-comment'>-- Note that even on Windows, zip files use "/" internally as path separator.</span> <a name="line-267"></a><span class='hs-definition'>zipifyFilePath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <a name="line-268"></a><span class='hs-definition'>zipifyFilePath</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <a name="line-269"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dir</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>takeDirectory</span> <span class='hs-varid'>path</span> <a name="line-270"></a> <span class='hs-varid'>fn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>takeFileName</span> <span class='hs-varid'>path</span> <a name="line-271"></a> <span class='hs-layout'>(</span><span class='hs-varid'>drive</span><span class='hs-layout'>,</span> <span class='hs-varid'>dir'</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>splitDrive</span> <span class='hs-varid'>dir</span> <a name="line-272"></a> <span class='hs-varid'>dirParts</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>splitDirectories</span> <span class='hs-varid'>dir'</span> <a name="line-273"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>drive</span> <span class='hs-varop'>++</span> <span class='hs-layout'>(</span><span class='hs-varid'>concat</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varop'>++</span> <span class='hs-str'>"/"</span><span class='hs-layout'>)</span> <span class='hs-varid'>dirParts</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>++</span> <span class='hs-varid'>fn</span> <a name="line-274"></a> <a name="line-275"></a><a name="compressData"></a><span class='hs-comment'>-- | Uncompress a lazy bytestring.</span> <a name="line-276"></a><span class='hs-definition'>compressData</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CompressionMethod</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <a name="line-277"></a><span class='hs-definition'>compressData</span> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Zlib</span><span class='hs-varop'>.</span><span class='hs-varid'>compress</span> <a name="line-278"></a><span class='hs-definition'>compressData</span> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>id</span> <a name="line-279"></a> <a name="line-280"></a><a name="decompressData"></a><span class='hs-comment'>-- | Compress a lazy bytestring.</span> <a name="line-281"></a><span class='hs-definition'>decompressData</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CompressionMethod</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <a name="line-282"></a><span class='hs-definition'>decompressData</span> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Zlib</span><span class='hs-varop'>.</span><span class='hs-varid'>decompress</span> <a name="line-283"></a><span class='hs-definition'>decompressData</span> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>id</span> <a name="line-284"></a> <a name="line-285"></a><a name="compressionRatio"></a><span class='hs-comment'>-- | Calculate compression ratio for an entry (for verbose output).</span> <a name="line-286"></a><span class='hs-definition'>compressionRatio</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Float</span> <a name="line-287"></a><span class='hs-definition'>compressionRatio</span> <span class='hs-varid'>entry</span> <span class='hs-keyglyph'>=</span> <a name="line-288"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-varid'>entry</span> <span class='hs-varop'>==</span> <span class='hs-num'>0</span> <a name="line-289"></a> <span class='hs-keyword'>then</span> <span class='hs-num'>1</span> <a name="line-290"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>eCompressedSize</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <span class='hs-varop'>/</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>eUncompressedSize</span> <span class='hs-varid'>entry</span><span class='hs-layout'>)</span> <a name="line-291"></a> <a name="line-292"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- | MSDOS datetime: a pair of Word16s (date, time) with the following structure:</span> <a name="line-293"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>--</span> <a name="line-294"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- > DATE bit 0 - 4 5 - 8 9 - 15</span> <a name="line-295"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- > value day (1 - 31) month (1 - 12) years from 1980</span> <a name="line-296"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- > TIME bit 0 - 4 5 - 10 11 - 15</span> <a name="line-297"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- > value seconds* minute hour</span> <a name="line-298"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>-- > *stored in two-second increments</span> <a name="line-299"></a><a name="MSDOSDateTime"></a><span class='hs-comment'>--</span> <a name="line-300"></a><a name="MSDOSDateTime"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>MSDOSDateTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>MSDOSDateTime</span> <span class='hs-layout'>{</span> <span class='hs-varid'>msDOSDate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word16</span> <a name="line-301"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>msDOSTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word16</span> <a name="line-302"></a> <span class='hs-layout'>}</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Read</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-303"></a> <a name="line-304"></a><a name="minMSDOSDateTime"></a><span class='hs-comment'>-- | Epoch time corresponding to the minimum DOS DateTime (Jan 1 1980 00:00:00).</span> <a name="line-305"></a><span class='hs-definition'>minMSDOSDateTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span> <a name="line-306"></a><span class='hs-definition'>minMSDOSDateTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>315532800</span> <a name="line-307"></a> <a name="line-308"></a><a name="epochTimeToMSDOSDateTime"></a><span class='hs-comment'>-- | Convert a clock time to a MSDOS datetime. The MSDOS time will be relative to UTC.</span> <a name="line-309"></a><span class='hs-definition'>epochTimeToMSDOSDateTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>MSDOSDateTime</span> <a name="line-310"></a><span class='hs-definition'>epochTimeToMSDOSDateTime</span> <span class='hs-varid'>epochtime</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>epochtime</span> <span class='hs-varop'><</span> <span class='hs-varid'>minMSDOSDateTime</span> <span class='hs-keyglyph'>=</span> <a name="line-311"></a> <span class='hs-varid'>epochTimeToMSDOSDateTime</span> <span class='hs-varid'>minMSDOSDateTime</span> <a name="line-312"></a> <span class='hs-comment'>-- if time is earlier than minimum DOS datetime, return minimum</span> <a name="line-313"></a><span class='hs-definition'>epochTimeToMSDOSDateTime</span> <span class='hs-varid'>epochtime</span> <span class='hs-keyglyph'>=</span> <a name="line-314"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>ut</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toUTCTime</span> <span class='hs-layout'>(</span><span class='hs-conid'>TOD</span> <span class='hs-varid'>epochtime</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <a name="line-315"></a> <span class='hs-varid'>dosTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctSec</span> <span class='hs-varid'>ut</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-varid'>shiftL</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctMin</span> <span class='hs-varid'>ut</span><span class='hs-layout'>)</span> <span class='hs-num'>5</span> <span class='hs-varop'>+</span> <span class='hs-varid'>shiftL</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctHour</span> <span class='hs-varid'>ut</span><span class='hs-layout'>)</span> <span class='hs-num'>11</span> <a name="line-316"></a> <span class='hs-varid'>dosDate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>ctDay</span> <span class='hs-varid'>ut</span> <span class='hs-varop'>+</span> <span class='hs-varid'>shiftL</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctMonth</span> <span class='hs-varid'>ut</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-num'>5</span> <span class='hs-varop'>+</span> <span class='hs-varid'>shiftL</span> <span class='hs-layout'>(</span><span class='hs-varid'>ctYear</span> <span class='hs-varid'>ut</span> <span class='hs-comment'>-</span> <span class='hs-num'>1980</span><span class='hs-layout'>)</span> <span class='hs-num'>9</span> <a name="line-317"></a> <span class='hs-keyword'>in</span> <span class='hs-conid'>MSDOSDateTime</span> <span class='hs-layout'>{</span> <span class='hs-varid'>msDOSDate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dosDate</span><span class='hs-layout'>,</span> <span class='hs-varid'>msDOSTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dosTime</span> <span class='hs-layout'>}</span> <a name="line-318"></a> <a name="line-319"></a><a name="msDOSDateTimeToEpochTime"></a><span class='hs-comment'>-- | Convert a MSDOS datetime to a 'ClockTime'.</span> <a name="line-320"></a><span class='hs-definition'>msDOSDateTimeToEpochTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MSDOSDateTime</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Integer</span> <a name="line-321"></a><span class='hs-definition'>msDOSDateTimeToEpochTime</span> <span class='hs-layout'>(</span><span class='hs-conid'>MSDOSDateTime</span> <span class='hs-layout'>{</span><span class='hs-varid'>msDOSDate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dosDate</span><span class='hs-layout'>,</span> <span class='hs-varid'>msDOSTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>dosTime</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-322"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>seconds</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-num'>2</span> <span class='hs-varop'>*</span> <span class='hs-layout'>(</span><span class='hs-varid'>dosTime</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0O37</span><span class='hs-layout'>)</span> <a name="line-323"></a> <span class='hs-varid'>minutes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-varid'>shiftR</span> <span class='hs-varid'>dosTime</span> <span class='hs-num'>5</span><span class='hs-layout'>)</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0O77</span> <a name="line-324"></a> <span class='hs-varid'>hour</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>shiftR</span> <span class='hs-varid'>dosTime</span> <span class='hs-num'>11</span> <a name="line-325"></a> <span class='hs-varid'>day</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>dosDate</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0O37</span> <a name="line-326"></a> <span class='hs-varid'>month</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>shiftR</span> <span class='hs-varid'>dosDate</span> <span class='hs-num'>5</span><span class='hs-layout'>)</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0O17</span><span class='hs-layout'>)</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span> <a name="line-327"></a> <span class='hs-varid'>year</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>shiftR</span> <span class='hs-varid'>dosDate</span> <span class='hs-num'>9</span> <a name="line-328"></a> <span class='hs-varid'>timeSinceEpoch</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TimeDiff</span> <a name="line-329"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>tdYear</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>year</span> <span class='hs-varop'>+</span> <span class='hs-num'>10</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- dos times since 1980, unix epoch starts 1970</span> <a name="line-330"></a> <span class='hs-varid'>tdMonth</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>month</span><span class='hs-layout'>,</span> <a name="line-331"></a> <span class='hs-varid'>tdDay</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>day</span> <span class='hs-comment'>-</span> <span class='hs-num'>1</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- dos days start from 1</span> <a name="line-332"></a> <span class='hs-varid'>tdHour</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>hour</span><span class='hs-layout'>,</span> <a name="line-333"></a> <span class='hs-varid'>tdMin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>minutes</span><span class='hs-layout'>,</span> <a name="line-334"></a> <span class='hs-varid'>tdSec</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>seconds</span><span class='hs-layout'>,</span> <a name="line-335"></a> <span class='hs-varid'>tdPicosec</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span> <span class='hs-layout'>}</span> <a name="line-336"></a> <span class='hs-layout'>(</span><span class='hs-conid'>TOD</span> <span class='hs-varid'>epochsecs</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addToClockTime</span> <span class='hs-varid'>timeSinceEpoch</span> <span class='hs-layout'>(</span><span class='hs-conid'>TOD</span> <span class='hs-num'>0</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <a name="line-337"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>epochsecs</span> <a name="line-338"></a> <a name="line-339"></a><a name="getDirectoryContentsRecursive"></a><span class='hs-definition'>getDirectoryContentsRecursive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <a name="line-340"></a><span class='hs-definition'>getDirectoryContentsRecursive</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-341"></a> <span class='hs-varid'>isDir</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>path</span> <a name="line-342"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>isDir</span> <a name="line-343"></a> <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <a name="line-344"></a> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getDirectoryContents</span> <span class='hs-varid'>path</span> <a name="line-345"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>contents'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-varid'>path</span> <span class='hs-varop'></></span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>`notElem`</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>".."</span><span class='hs-layout'>,</span><span class='hs-str'>"."</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-varid'>contents</span> <a name="line-346"></a> <span class='hs-varid'>children</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mapM</span> <span class='hs-varid'>getDirectoryContentsRecursive</span> <span class='hs-varid'>contents'</span> <a name="line-347"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>path</span> <span class='hs-varop'>==</span> <span class='hs-str'>"."</span> <a name="line-348"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>concat</span> <span class='hs-varid'>children</span><span class='hs-layout'>)</span> <a name="line-349"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>path</span> <span class='hs-conop'>:</span> <span class='hs-varid'>concat</span> <span class='hs-varid'>children</span><span class='hs-layout'>)</span> <a name="line-350"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>path</span><span class='hs-keyglyph'>]</span> <a name="line-351"></a> <a name="line-352"></a><a name="setFileTimeStamp"></a><span class='hs-definition'>setFileTimeStamp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Integer</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-353"></a><span class='hs-definition'>setFileTimeStamp</span> <span class='hs-varid'>file</span> <span class='hs-varid'>epochtime</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-354"></a><span class='hs-cpp'>#ifdef _WINDOWS</span> <a name="line-355"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <span class='hs-comment'>-- TODO - figure out how to set the timestamp on Windows</span> <a name="line-356"></a><span class='hs-cpp'>#else</span> <a name="line-357"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>epochtime'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromInteger</span> <span class='hs-varid'>epochtime</span> <a name="line-358"></a> <span class='hs-varid'>setFileTimes</span> <span class='hs-varid'>file</span> <span class='hs-varid'>epochtime'</span> <span class='hs-varid'>epochtime'</span> <a name="line-359"></a><span class='hs-cpp'>#endif</span> <a name="line-360"></a> <a name="line-361"></a><span class='hs-comment'>-- A zip file has the following format (*'d items are not supported in this implementation):</span> <a name="line-362"></a><span class='hs-comment'>--</span> <a name="line-363"></a><span class='hs-comment'>-- > [local file header 1]</span> <a name="line-364"></a><span class='hs-comment'>-- > [file data 1]</span> <a name="line-365"></a><span class='hs-comment'>-- > [data descriptor 1*]</span> <a name="line-366"></a><span class='hs-comment'>-- > .</span> <a name="line-367"></a><span class='hs-comment'>-- > .</span> <a name="line-368"></a><span class='hs-comment'>-- > .</span> <a name="line-369"></a><span class='hs-comment'>-- > [local file header n]</span> <a name="line-370"></a><span class='hs-comment'>-- > [file data n]</span> <a name="line-371"></a><span class='hs-comment'>-- > [data descriptor n*]</span> <a name="line-372"></a><span class='hs-comment'>-- > [archive decryption header*]</span> <a name="line-373"></a><span class='hs-comment'>-- > [archive extra data record*]</span> <a name="line-374"></a><span class='hs-comment'>-- > [central directory]</span> <a name="line-375"></a><span class='hs-comment'>-- > [zip64 end of central directory record*]</span> <a name="line-376"></a><span class='hs-comment'>-- > [zip64 end of central directory locator*]</span> <a name="line-377"></a><span class='hs-comment'>-- > [end of central directory record]</span> <a name="line-378"></a><span class='hs-comment'>--</span> <a name="line-379"></a><span class='hs-comment'>-- Files stored in arbitrary order. All values are stored in</span> <a name="line-380"></a><span class='hs-comment'>-- little-endian byte order unless otherwise specified.</span> <a name="line-381"></a><span class='hs-comment'>--</span> <a name="line-382"></a><span class='hs-comment'>-- Central directory structure:</span> <a name="line-383"></a><span class='hs-comment'>--</span> <a name="line-384"></a><span class='hs-comment'>-- > [file header 1]</span> <a name="line-385"></a><span class='hs-comment'>-- > .</span> <a name="line-386"></a><span class='hs-comment'>-- > .</span> <a name="line-387"></a><span class='hs-comment'>-- > .</span> <a name="line-388"></a><span class='hs-comment'>-- > [file header n]</span> <a name="line-389"></a><span class='hs-comment'>-- > [digital signature]</span> <a name="line-390"></a><span class='hs-comment'>--</span> <a name="line-391"></a><span class='hs-comment'>-- End of central directory record:</span> <a name="line-392"></a><span class='hs-comment'>--</span> <a name="line-393"></a><span class='hs-comment'>-- > end of central dir signature 4 bytes (0x06054b50)</span> <a name="line-394"></a><span class='hs-comment'>-- > number of this disk 2 bytes</span> <a name="line-395"></a><span class='hs-comment'>-- > number of the disk with the</span> <a name="line-396"></a><span class='hs-comment'>-- > start of the central directory 2 bytes</span> <a name="line-397"></a><span class='hs-comment'>-- > total number of entries in the</span> <a name="line-398"></a><span class='hs-comment'>-- > central directory on this disk 2 bytes</span> <a name="line-399"></a><span class='hs-comment'>-- > total number of entries in</span> <a name="line-400"></a><span class='hs-comment'>-- > the central directory 2 bytes</span> <a name="line-401"></a><span class='hs-comment'>-- > size of the central directory 4 bytes</span> <a name="line-402"></a><span class='hs-comment'>-- > offset of start of central</span> <a name="line-403"></a><span class='hs-comment'>-- > directory with respect to</span> <a name="line-404"></a><span class='hs-comment'>-- > the starting disk number 4 bytes</span> <a name="line-405"></a><span class='hs-comment'>-- > .ZIP file comment length 2 bytes</span> <a name="line-406"></a><span class='hs-comment'>-- > .ZIP file comment (variable size)</span> <a name="line-407"></a> <a name="line-408"></a><a name="getArchive"></a><span class='hs-definition'>getArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Get</span> <span class='hs-conid'>Archive</span> <a name="line-409"></a><span class='hs-definition'>getArchive</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-410"></a> <span class='hs-varid'>locals</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>many</span> <span class='hs-varid'>getLocalFile</span> <a name="line-411"></a> <span class='hs-varid'>files</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>many</span> <span class='hs-layout'>(</span><span class='hs-varid'>getFileHeader</span> <span class='hs-layout'>(</span><span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-varid'>locals</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-412"></a> <span class='hs-varid'>digSig</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookAheadM</span> <span class='hs-varid'>getDigitalSignature</span> <a name="line-413"></a> <span class='hs-varid'>endSig</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-414"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>endSig</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x06054b50</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fail</span> <span class='hs-str'>"Did not find end of central directory signature"</span> <a name="line-415"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- disk number</span> <a name="line-416"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- disk number of central directory</span> <a name="line-417"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- num entries on this disk</span> <a name="line-418"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- num entries in central directory</span> <a name="line-419"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- central directory size</span> <a name="line-420"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- offset of central directory</span> <a name="line-421"></a> <span class='hs-varid'>commentLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-422"></a> <span class='hs-varid'>zipComment</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>commentLength</span><span class='hs-layout'>)</span> <a name="line-423"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Archive</span> <a name="line-424"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>zEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>files</span> <a name="line-425"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zSignature</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>digSig</span> <a name="line-426"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>zComment</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>zipComment</span> <a name="line-427"></a> <span class='hs-layout'>}</span> <a name="line-428"></a> <a name="line-429"></a><a name="putArchive"></a><span class='hs-definition'>putArchive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Archive</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Put</span> <a name="line-430"></a><span class='hs-definition'>putArchive</span> <span class='hs-varid'>archive</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-431"></a> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>putLocalFile</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <a name="line-432"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>localFileSizes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>map</span> <span class='hs-varid'>localFileSize</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <a name="line-433"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>offsets</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>scanl</span> <span class='hs-layout'>(</span><span class='hs-varop'>+</span><span class='hs-layout'>)</span> <span class='hs-num'>0</span> <span class='hs-varid'>localFileSizes</span> <a name="line-434"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>cdOffset</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>last</span> <span class='hs-varid'>offsets</span> <a name="line-435"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>zipWithM</span> <span class='hs-varid'>putFileHeader</span> <span class='hs-varid'>offsets</span> <span class='hs-layout'>(</span><span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span><span class='hs-layout'>)</span> <a name="line-436"></a> <span class='hs-varid'>putDigitalSignature</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zSignature</span> <span class='hs-varid'>archive</span> <a name="line-437"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-num'>0x06054b50</span> <a name="line-438"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- disk number</span> <a name="line-439"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- disk number of central directory</span> <a name="line-440"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <span class='hs-comment'>-- number of entries this disk</span> <a name="line-441"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <span class='hs-comment'>-- number of entries</span> <a name="line-442"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>sum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>map</span> <span class='hs-varid'>fileHeaderSize</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zEntries</span> <span class='hs-varid'>archive</span> <span class='hs-comment'>-- size of central directory</span> <a name="line-443"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>cdOffset</span> <span class='hs-comment'>-- offset of central dir</span> <a name="line-444"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zComment</span> <span class='hs-varid'>archive</span> <a name="line-445"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zComment</span> <span class='hs-varid'>archive</span> <a name="line-446"></a> <a name="line-447"></a> <a name="line-448"></a><a name="fileHeaderSize"></a><span class='hs-definition'>fileHeaderSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word32</span> <a name="line-449"></a><span class='hs-definition'>fileHeaderSize</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <a name="line-450"></a> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <a name="line-451"></a> <span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <a name="line-452"></a> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>eExtraField</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>eFileComment</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <a name="line-453"></a> <a name="line-454"></a><a name="localFileSize"></a><span class='hs-definition'>localFileSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word32</span> <a name="line-455"></a><span class='hs-definition'>localFileSize</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <a name="line-456"></a> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>4</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <span class='hs-num'>2</span> <span class='hs-varop'>+</span> <a name="line-457"></a> <span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <a name="line-458"></a> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>eExtraField</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <span class='hs-varop'>+</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-layout'>(</span><span class='hs-varid'>eCompressedData</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <a name="line-459"></a> <a name="line-460"></a><span class='hs-comment'>-- Local file header:</span> <a name="line-461"></a><span class='hs-comment'>--</span> <a name="line-462"></a><span class='hs-comment'>-- > local file header signature 4 bytes (0x04034b50)</span> <a name="line-463"></a><span class='hs-comment'>-- > version needed to extract 2 bytes</span> <a name="line-464"></a><span class='hs-comment'>-- > general purpose bit flag 2 bytes</span> <a name="line-465"></a><span class='hs-comment'>-- > compression method 2 bytes</span> <a name="line-466"></a><span class='hs-comment'>-- > last mod file time 2 bytes</span> <a name="line-467"></a><span class='hs-comment'>-- > last mod file date 2 bytes</span> <a name="line-468"></a><span class='hs-comment'>-- > crc-32 4 bytes</span> <a name="line-469"></a><span class='hs-comment'>-- > compressed size 4 bytes</span> <a name="line-470"></a><span class='hs-comment'>-- > uncompressed size 4 bytes</span> <a name="line-471"></a><span class='hs-comment'>-- > file name length 2 bytes</span> <a name="line-472"></a><span class='hs-comment'>-- > extra field length 2 bytes</span> <a name="line-473"></a><span class='hs-comment'>--</span> <a name="line-474"></a><span class='hs-comment'>-- > file name (variable size)</span> <a name="line-475"></a><span class='hs-comment'>-- > extra field (variable size)</span> <a name="line-476"></a><span class='hs-comment'>--</span> <a name="line-477"></a><span class='hs-comment'>-- Note that if bit 3 of the general purpose bit flag is set, then the</span> <a name="line-478"></a><span class='hs-comment'>-- compressed size will be 0 and the size will be stored instead in a</span> <a name="line-479"></a><span class='hs-comment'>-- data descriptor record AFTER the file contents. The record normally</span> <a name="line-480"></a><span class='hs-comment'>-- begins with the signature 0x08074b50, then 4 bytes crc-32, 4 bytes</span> <a name="line-481"></a><span class='hs-comment'>-- compressed size, 4 bytes uncompressed size.</span> <a name="line-482"></a> <a name="line-483"></a><a name="getLocalFile"></a><span class='hs-definition'>getLocalFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Get</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Word32</span><span class='hs-layout'>,</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-484"></a><span class='hs-definition'>getLocalFile</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-485"></a> <span class='hs-varid'>sig</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookAhead</span> <span class='hs-varid'>getWord32le</span> <a name="line-486"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>sig</span> <span class='hs-varop'>/=</span> <span class='hs-num'>0x04034b50</span> <a name="line-487"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-488"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <a name="line-489"></a> <span class='hs-varid'>offset</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>bytesRead</span> <a name="line-490"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- signature</span> <a name="line-491"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- version</span> <a name="line-492"></a> <span class='hs-varid'>bitflag</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-493"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- compressionMethod</span> <a name="line-494"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- last mod file time</span> <a name="line-495"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- last mod file date</span> <a name="line-496"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- crc32</span> <a name="line-497"></a> <span class='hs-varid'>compressedSize</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-498"></a> <span class='hs-varid'>when</span> <span class='hs-layout'>(</span><span class='hs-varid'>compressedSize</span> <span class='hs-varop'>==</span> <span class='hs-num'>0xFFFFFFFF</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-499"></a> <span class='hs-varid'>fail</span> <span class='hs-str'>"Can't read ZIP64 archive."</span> <a name="line-500"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- uncompressedsize</span> <a name="line-501"></a> <span class='hs-varid'>fileNameLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-502"></a> <span class='hs-varid'>extraFieldLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-503"></a> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>fileNameLength</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- filename</span> <a name="line-504"></a> <span class='hs-varid'>skip</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>extraFieldLength</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- extra field</span> <a name="line-505"></a> <span class='hs-varid'>compressedData</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>bitflag</span> <span class='hs-varop'>.&.</span> <span class='hs-num'>0O10</span> <span class='hs-varop'>==</span> <span class='hs-num'>0</span> <a name="line-506"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>compressedSize</span><span class='hs-layout'>)</span> <a name="line-507"></a> <span class='hs-keyword'>else</span> <span class='hs-comment'>-- If bit 3 of general purpose bit flag is set,</span> <a name="line-508"></a> <span class='hs-comment'>-- then we need to read until we get to the</span> <a name="line-509"></a> <span class='hs-comment'>-- data descriptor record. We assume that the</span> <a name="line-510"></a> <span class='hs-comment'>-- record has signature 0x08074b50; this is not required</span> <a name="line-511"></a> <span class='hs-comment'>-- by the specification but is common.</span> <a name="line-512"></a> <span class='hs-keyword'>do</span> <span class='hs-varid'>raw</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>many</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-513"></a> <span class='hs-varid'>s</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookAhead</span> <span class='hs-varid'>getWord32le</span> <a name="line-514"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>s</span> <span class='hs-varop'>==</span> <span class='hs-num'>0x08074b50</span> <a name="line-515"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-516"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>getWord8</span> <a name="line-517"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- signature</span> <a name="line-518"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- crc32</span> <a name="line-519"></a> <span class='hs-varid'>cs</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <span class='hs-comment'>-- compressed size</span> <a name="line-520"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- uncompressed size</span> <a name="line-521"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>cs</span> <span class='hs-varop'>==</span> <span class='hs-varid'>length</span> <span class='hs-varid'>raw</span> <a name="line-522"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-varid'>raw</span> <a name="line-523"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>fail</span> <span class='hs-str'>"Content size mismatch in data descriptor record"</span> <a name="line-524"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>offset</span><span class='hs-layout'>,</span> <span class='hs-varid'>compressedData</span><span class='hs-layout'>)</span> <a name="line-525"></a> <a name="line-526"></a><a name="putLocalFile"></a><span class='hs-definition'>putLocalFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Entry</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Put</span> <a name="line-527"></a><span class='hs-definition'>putLocalFile</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-528"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-num'>0x04034b50</span> <a name="line-529"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>20</span> <span class='hs-comment'>-- version needed to extract (>=2.0)</span> <a name="line-530"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- general purpose bit flag (max compression)</span> <a name="line-531"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-varid'>f</span> <span class='hs-keyword'>of</span> <a name="line-532"></a> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0</span> <a name="line-533"></a> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>8</span> <a name="line-534"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>modTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>epochTimeToMSDOSDateTime</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eLastModified</span> <span class='hs-varid'>f</span> <a name="line-535"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>msDOSTime</span> <span class='hs-varid'>modTime</span> <a name="line-536"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>msDOSDate</span> <span class='hs-varid'>modTime</span> <a name="line-537"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eCRC32</span> <span class='hs-varid'>f</span> <a name="line-538"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eCompressedSize</span> <span class='hs-varid'>f</span> <a name="line-539"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-varid'>f</span> <a name="line-540"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>f</span> <a name="line-541"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eExtraField</span> <span class='hs-varid'>f</span> <a name="line-542"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>f</span> <a name="line-543"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eExtraField</span> <span class='hs-varid'>f</span> <a name="line-544"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eCompressedData</span> <span class='hs-varid'>f</span> <a name="line-545"></a> <a name="line-546"></a><span class='hs-comment'>-- File header structure:</span> <a name="line-547"></a><span class='hs-comment'>--</span> <a name="line-548"></a><span class='hs-comment'>-- > central file header signature 4 bytes (0x02014b50)</span> <a name="line-549"></a><span class='hs-comment'>-- > version made by 2 bytes</span> <a name="line-550"></a><span class='hs-comment'>-- > version needed to extract 2 bytes</span> <a name="line-551"></a><span class='hs-comment'>-- > general purpose bit flag 2 bytes</span> <a name="line-552"></a><span class='hs-comment'>-- > compression method 2 bytes</span> <a name="line-553"></a><span class='hs-comment'>-- > last mod file time 2 bytes</span> <a name="line-554"></a><span class='hs-comment'>-- > last mod file date 2 bytes</span> <a name="line-555"></a><span class='hs-comment'>-- > crc-32 4 bytes</span> <a name="line-556"></a><span class='hs-comment'>-- > compressed size 4 bytes</span> <a name="line-557"></a><span class='hs-comment'>-- > uncompressed size 4 bytes</span> <a name="line-558"></a><span class='hs-comment'>-- > file name length 2 bytes</span> <a name="line-559"></a><span class='hs-comment'>-- > extra field length 2 bytes</span> <a name="line-560"></a><span class='hs-comment'>-- > file comment length 2 bytes</span> <a name="line-561"></a><span class='hs-comment'>-- > disk number start 2 bytes</span> <a name="line-562"></a><span class='hs-comment'>-- > internal file attributes 2 bytes</span> <a name="line-563"></a><span class='hs-comment'>-- > external file attributes 4 bytes</span> <a name="line-564"></a><span class='hs-comment'>-- > relative offset of local header 4 bytes</span> <a name="line-565"></a><span class='hs-comment'>--</span> <a name="line-566"></a><span class='hs-comment'>-- > file name (variable size)</span> <a name="line-567"></a><span class='hs-comment'>-- > extra field (variable size)</span> <a name="line-568"></a><span class='hs-comment'>-- > file comment (variable size)</span> <a name="line-569"></a> <a name="line-570"></a><a name="getFileHeader"></a><span class='hs-definition'>getFileHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-conid'>Word32</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ map of (offset, content) pairs returned by getLocalFile</span> <a name="line-571"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Get</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>Entry</span><span class='hs-layout'>)</span> <a name="line-572"></a><span class='hs-definition'>getFileHeader</span> <span class='hs-varid'>locals</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-573"></a> <span class='hs-varid'>sig</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>lookAhead</span> <span class='hs-varid'>getWord32le</span> <a name="line-574"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>sig</span> <span class='hs-varop'>/=</span> <span class='hs-num'>0x02014b50</span> <a name="line-575"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-576"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <a name="line-577"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>4</span> <span class='hs-comment'>-- skip past signature</span> <a name="line-578"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- version made by</span> <a name="line-579"></a> <span class='hs-varid'>versionNeededToExtract</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-580"></a> <span class='hs-varid'>unless</span> <span class='hs-layout'>(</span><span class='hs-varid'>versionNeededToExtract</span> <span class='hs-varop'><=</span> <span class='hs-num'>20</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-581"></a> <span class='hs-varid'>fail</span> <span class='hs-str'>"This archive requires zip >= 2.0 to extract."</span> <a name="line-582"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- general purpose bit flag</span> <a name="line-583"></a> <span class='hs-varid'>rawCompressionMethod</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-584"></a> <span class='hs-varid'>compressionMethod</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>rawCompressionMethod</span> <span class='hs-keyword'>of</span> <a name="line-585"></a> <span class='hs-num'>0</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>NoCompression</span> <a name="line-586"></a> <span class='hs-num'>8</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>Deflate</span> <a name="line-587"></a> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Unknown compression method "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>rawCompressionMethod</span> <a name="line-588"></a> <span class='hs-varid'>lastModFileTime</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-589"></a> <span class='hs-varid'>lastModFileDate</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-590"></a> <span class='hs-varid'>crc32</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-591"></a> <span class='hs-varid'>compressedSize</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-592"></a> <span class='hs-varid'>uncompressedSize</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-593"></a> <span class='hs-varid'>fileNameLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-594"></a> <span class='hs-varid'>extraFieldLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-595"></a> <span class='hs-varid'>fileCommentLength</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-596"></a> <span class='hs-varid'>skip</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- disk number start</span> <a name="line-597"></a> <span class='hs-varid'>internalFileAttributes</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-598"></a> <span class='hs-varid'>externalFileAttributes</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-599"></a> <span class='hs-varid'>relativeOffset</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-600"></a> <span class='hs-varid'>fileName</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>fileNameLength</span><span class='hs-layout'>)</span> <a name="line-601"></a> <span class='hs-varid'>extraField</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>extraFieldLength</span><span class='hs-layout'>)</span> <a name="line-602"></a> <span class='hs-varid'>fileComment</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>fileCommentLength</span><span class='hs-layout'>)</span> <a name="line-603"></a> <span class='hs-varid'>compressedData</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>case</span> <span class='hs-layout'>(</span><span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-varid'>lookup</span> <span class='hs-varid'>relativeOffset</span> <span class='hs-varid'>locals</span><span class='hs-layout'>)</span> <span class='hs-keyword'>of</span> <a name="line-604"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>x</span> <a name="line-605"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fail</span> <span class='hs-varop'>$</span> <span class='hs-str'>"Unable to find data at offset "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>relativeOffset</span> <a name="line-606"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Entry</span> <a name="line-607"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toString</span> <span class='hs-varid'>fileName</span> <a name="line-608"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compressionMethod</span> <a name="line-609"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eLastModified</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>msDOSDateTimeToEpochTime</span> <span class='hs-varop'>$</span> <a name="line-610"></a> <span class='hs-conid'>MSDOSDateTime</span> <span class='hs-layout'>{</span> <span class='hs-varid'>msDOSDate</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lastModFileDate</span><span class='hs-layout'>,</span> <a name="line-611"></a> <span class='hs-varid'>msDOSTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lastModFileTime</span> <span class='hs-layout'>}</span> <a name="line-612"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCRC32</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>crc32</span> <a name="line-613"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compressedSize</span> <a name="line-614"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>uncompressedSize</span> <a name="line-615"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExtraField</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>extraField</span> <a name="line-616"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eFileComment</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fileComment</span> <a name="line-617"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eInternalFileAttributes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>internalFileAttributes</span> <a name="line-618"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eExternalFileAttributes</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>externalFileAttributes</span> <a name="line-619"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>eCompressedData</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>compressedData</span> <a name="line-620"></a> <span class='hs-layout'>}</span> <a name="line-621"></a> <a name="line-622"></a><a name="putFileHeader"></a><span class='hs-definition'>putFileHeader</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ offset</span> <a name="line-623"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Entry</span> <a name="line-624"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Put</span> <a name="line-625"></a><span class='hs-definition'>putFileHeader</span> <span class='hs-varid'>offset</span> <span class='hs-varid'>local</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-626"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-num'>0x02014b50</span> <a name="line-627"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- version made by</span> <a name="line-628"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>20</span> <span class='hs-comment'>-- version needed to extract (>= 2.0)</span> <a name="line-629"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>2</span> <span class='hs-comment'>-- general purpose bit flag (max compression)</span> <a name="line-630"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>eCompressionMethod</span> <span class='hs-varid'>local</span> <span class='hs-keyword'>of</span> <a name="line-631"></a> <span class='hs-conid'>NoCompression</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>0</span> <a name="line-632"></a> <span class='hs-conid'>Deflate</span> <span class='hs-keyglyph'>-></span> <span class='hs-num'>8</span> <a name="line-633"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>modTime</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>epochTimeToMSDOSDateTime</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eLastModified</span> <span class='hs-varid'>local</span> <a name="line-634"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>msDOSTime</span> <span class='hs-varid'>modTime</span> <a name="line-635"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>msDOSDate</span> <span class='hs-varid'>modTime</span> <a name="line-636"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eCRC32</span> <span class='hs-varid'>local</span> <a name="line-637"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eCompressedSize</span> <span class='hs-varid'>local</span> <a name="line-638"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eUncompressedSize</span> <span class='hs-varid'>local</span> <a name="line-639"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>local</span> <a name="line-640"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eExtraField</span> <span class='hs-varid'>local</span> <a name="line-641"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eFileComment</span> <span class='hs-varid'>local</span> <a name="line-642"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-num'>0</span> <span class='hs-comment'>-- disk number start</span> <a name="line-643"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eInternalFileAttributes</span> <span class='hs-varid'>local</span> <a name="line-644"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eExternalFileAttributes</span> <span class='hs-varid'>local</span> <a name="line-645"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-varid'>offset</span> <a name="line-646"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>zipifyFilePath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eRelativePath</span> <span class='hs-varid'>local</span> <a name="line-647"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eExtraField</span> <span class='hs-varid'>local</span> <a name="line-648"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varop'>$</span> <span class='hs-varid'>eFileComment</span> <span class='hs-varid'>local</span> <a name="line-649"></a> <a name="line-650"></a><span class='hs-comment'>-- Digital signature:</span> <a name="line-651"></a><span class='hs-comment'>--</span> <a name="line-652"></a><span class='hs-comment'>-- > header signature 4 bytes (0x05054b50)</span> <a name="line-653"></a><span class='hs-comment'>-- > size of data 2 bytes</span> <a name="line-654"></a><span class='hs-comment'>-- > signature data (variable size)</span> <a name="line-655"></a> <a name="line-656"></a><a name="getDigitalSignature"></a><span class='hs-definition'>getDigitalSignature</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Get</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-layout'>)</span> <a name="line-657"></a><span class='hs-definition'>getDigitalSignature</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-658"></a> <span class='hs-varid'>hdrSig</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord32le</span> <a name="line-659"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>hdrSig</span> <span class='hs-varop'>/=</span> <span class='hs-num'>0x08064b50</span> <a name="line-660"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-661"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <a name="line-662"></a> <span class='hs-varid'>sigSize</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getWord16le</span> <a name="line-663"></a> <span class='hs-varid'>getLazyByteString</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>sigSize</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Just</span> <a name="line-664"></a> <a name="line-665"></a><a name="putDigitalSignature"></a><span class='hs-definition'>putDigitalSignature</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Put</span> <a name="line-666"></a><span class='hs-definition'>putDigitalSignature</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-667"></a><span class='hs-definition'>putDigitalSignature</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>sig</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-668"></a> <span class='hs-varid'>putWord32le</span> <span class='hs-num'>0x08064b50</span> <a name="line-669"></a> <span class='hs-varid'>putWord16le</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>sig</span> <a name="line-670"></a> <span class='hs-varid'>putLazyByteString</span> <span class='hs-varid'>sig</span> </pre></body> </html>