/usr/share/doc/libghc-hackage-security-doc/html/src/Hackage-Security-Client-Repository-Cache.html is in libghc-hackage-security-doc 0.5.2.2-8build8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 | <?xml version="1.0" encoding="UTF-8"?>
<!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://code.haskell.org/~malcolm/hscolour/ -->
<title>src/Hackage/Security/Client/Repository/Cache.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE BangPatterns #-}</span>
<a name="line-2"></a><span class='hs-comment'>-- | The files we cache from the repository</span>
<a name="line-3"></a><span class='hs-comment'>--</span>
<a name="line-4"></a><span class='hs-comment'>-- Both the Local and the Remote repositories make use of this module.</span>
<a name="line-5"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Client</span><span class='hs-varop'>.</span><span class='hs-conid'>Repository</span><span class='hs-varop'>.</span><span class='hs-conid'>Cache</span> <span class='hs-layout'>(</span>
<a name="line-6"></a> <span class='hs-conid'>Cache</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span>
<a name="line-7"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>getCached</span>
<a name="line-8"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>getCachedRoot</span>
<a name="line-9"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>getCachedIndex</span>
<a name="line-10"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>clearCache</span>
<a name="line-11"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>withIndex</span>
<a name="line-12"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>getIndexIdx</span>
<a name="line-13"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>cacheRemoteFile</span>
<a name="line-14"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>lockCache</span>
<a name="line-15"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-16"></a>
<a name="line-17"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Exception</span>
<a name="line-18"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span>
<a name="line-19"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span>
<a name="line-20"></a><span class='hs-keyword'>import</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'>Tar</span> <span class='hs-layout'>(</span><span class='hs-conid'>Entries</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-21"></a><span class='hs-keyword'>import</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'>Tar</span><span class='hs-varop'>.</span><span class='hs-conid'>Index</span> <span class='hs-layout'>(</span><span class='hs-conid'>TarIndex</span><span class='hs-layout'>,</span> <span class='hs-conid'>IndexBuilder</span><span class='hs-layout'>,</span> <span class='hs-conid'>TarEntryOffset</span><span class='hs-layout'>)</span>
<a name="line-22"></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'>Archive</span><span class='hs-varop'>.</span><span class='hs-conid'>Tar</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Tar</span>
<a name="line-23"></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'>Archive</span><span class='hs-varop'>.</span><span class='hs-conid'>Tar</span><span class='hs-varop'>.</span><span class='hs-conid'>Index</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>TarIndex</span>
<a name="line-24"></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'>GZip</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>GZip</span>
<a name="line-25"></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-keyword'>as</span> <span class='hs-conid'>BS</span>
<a name="line-26"></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'>BS</span><span class='hs-varop'>.</span><span class='hs-conid'>L</span>
<a name="line-27"></a>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Client</span><span class='hs-varop'>.</span><span class='hs-conid'>Repository</span>
<a name="line-29"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Client</span><span class='hs-varop'>.</span><span class='hs-conid'>Formats</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>TUF</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Util</span><span class='hs-varop'>.</span><span class='hs-conid'>Checked</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Util</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span>
<a name="line-33"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Hackage</span><span class='hs-varop'>.</span><span class='hs-conid'>Security</span><span class='hs-varop'>.</span><span class='hs-conid'>Util</span><span class='hs-varop'>.</span><span class='hs-conid'>Path</span>
<a name="line-34"></a>
<a name="line-35"></a><a name="Cache"></a><span class='hs-comment'>-- | Location and layout of the local cache</span>
<a name="line-36"></a><a name="Cache"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Cache</span> <span class='hs-layout'>{</span>
<a name="line-37"></a> <span class='hs-varid'>cacheRoot</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span>
<a name="line-38"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>cacheLayout</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CacheLayout</span>
<a name="line-39"></a> <span class='hs-layout'>}</span>
<a name="line-40"></a>
<a name="line-41"></a><a name="cacheRemoteFile"></a><span class='hs-comment'>-- | Cache a previously downloaded remote file</span>
<a name="line-42"></a><span class='hs-definition'>cacheRemoteFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>down</span> <span class='hs-varid'>typ</span> <span class='hs-varid'>f</span><span class='hs-varop'>.</span> <span class='hs-conid'>DownloadedFile</span> <span class='hs-varid'>down</span>
<a name="line-43"></a> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>down</span> <span class='hs-varid'>typ</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Format</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IsCached</span> <span class='hs-varid'>typ</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-44"></a><span class='hs-definition'>cacheRemoteFile</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>downloaded</span> <span class='hs-varid'>f</span> <span class='hs-varid'>isCached</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-45"></a> <span class='hs-varid'>go</span> <span class='hs-varid'>f</span> <span class='hs-varid'>isCached</span>
<a name="line-46"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>isCached</span> <span class='hs-keyword'>of</span>
<a name="line-47"></a> <span class='hs-conid'>CacheIndex</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>rebuildTarIndex</span> <span class='hs-varid'>cache</span>
<a name="line-48"></a> <span class='hs-sel'>_otherwise</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-49"></a> <span class='hs-keyword'>where</span>
<a name="line-50"></a> <span class='hs-varid'>go</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Format</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IsCached</span> <span class='hs-varid'>typ</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-51"></a> <span class='hs-varid'>go</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>DontCache</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-52"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>FUn</span> <span class='hs-layout'>(</span><span class='hs-conid'>CacheAs</span> <span class='hs-varid'>file</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copyTo</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedFilePath</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>file</span><span class='hs-layout'>)</span>
<a name="line-53"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>FGz</span> <span class='hs-conid'>CacheIndex</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>copyTo</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>FGz</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>unzipIndex</span>
<a name="line-54"></a> <span class='hs-varid'>go</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"cacheRemoteFile: unexpected case"</span> <span class='hs-comment'>-- TODO: enforce in types?</span>
<a name="line-55"></a>
<a name="line-56"></a> <span class='hs-varid'>copyTo</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-57"></a> <span class='hs-varid'>copyTo</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-58"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeDirectory</span> <span class='hs-varid'>fp</span><span class='hs-layout'>)</span>
<a name="line-59"></a> <span class='hs-varid'>downloadedCopyTo</span> <span class='hs-varid'>downloaded</span> <span class='hs-varid'>fp</span>
<a name="line-60"></a>
<a name="line-61"></a> <span class='hs-comment'>-- Whether or not we downloaded the compressed index incrementally, we can</span>
<a name="line-62"></a> <span class='hs-comment'>-- update the uncompressed index incrementally (assuming the local files</span>
<a name="line-63"></a> <span class='hs-comment'>-- have not been corrupted).</span>
<a name="line-64"></a> <span class='hs-comment'>-- NOTE: This assumes we already updated the compressed file.</span>
<a name="line-65"></a> <span class='hs-varid'>unzipIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-66"></a> <span class='hs-varid'>unzipIndex</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-67"></a> <span class='hs-varid'>createDirectoryIfMissing</span> <span class='hs-conid'>True</span> <span class='hs-layout'>(</span><span class='hs-varid'>takeDirectory</span> <span class='hs-varid'>indexUn</span><span class='hs-layout'>)</span>
<a name="line-68"></a> <span class='hs-varid'>shouldTryIncremenal</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>cachedIndexProbablyValid</span>
<a name="line-69"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>shouldTryIncremenal</span>
<a name="line-70"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>unzipIncremenal</span>
<a name="line-71"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>unzipNonIncremenal</span>
<a name="line-72"></a> <span class='hs-keyword'>where</span>
<a name="line-73"></a> <span class='hs-varid'>unzipIncremenal</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-74"></a> <span class='hs-varid'>compressed</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readLazyByteString</span> <span class='hs-varid'>indexGz</span>
<a name="line-75"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>uncompressed</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GZip</span><span class='hs-varop'>.</span><span class='hs-varid'>decompress</span> <span class='hs-varid'>compressed</span>
<a name="line-76"></a> <span class='hs-varid'>withFile</span> <span class='hs-varid'>indexUn</span> <span class='hs-conid'>ReadWriteMode</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>h</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-77"></a> <span class='hs-varid'>currentSize</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>hFileSize</span> <span class='hs-varid'>h</span>
<a name="line-78"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>seekTo</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span> <span class='hs-varop'>`max`</span> <span class='hs-layout'>(</span><span class='hs-varid'>currentSize</span> <span class='hs-comment'>-</span> <span class='hs-varid'>tarTrailer</span><span class='hs-layout'>)</span>
<a name="line-79"></a> <span class='hs-varid'>hSeek</span> <span class='hs-varid'>h</span> <span class='hs-conid'>AbsoluteSeek</span> <span class='hs-varid'>seekTo</span>
<a name="line-80"></a> <span class='hs-conid'>BS</span><span class='hs-varop'>.</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>hPut</span> <span class='hs-varid'>h</span> <span class='hs-varop'>$</span> <span class='hs-conid'>BS</span><span class='hs-varop'>.</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>drop</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromInteger</span> <span class='hs-varid'>seekTo</span><span class='hs-layout'>)</span> <span class='hs-varid'>uncompressed</span>
<a name="line-81"></a>
<a name="line-82"></a> <span class='hs-varid'>unzipNonIncremenal</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-83"></a> <span class='hs-varid'>compressed</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readLazyByteString</span> <span class='hs-varid'>indexGz</span>
<a name="line-84"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>uncompressed</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GZip</span><span class='hs-varop'>.</span><span class='hs-varid'>decompress</span> <span class='hs-varid'>compressed</span>
<a name="line-85"></a> <span class='hs-varid'>withFile</span> <span class='hs-varid'>indexUn</span> <span class='hs-conid'>WriteMode</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>h</span> <span class='hs-keyglyph'>-></span>
<a name="line-86"></a> <span class='hs-conid'>BS</span><span class='hs-varop'>.</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>hPut</span> <span class='hs-varid'>h</span> <span class='hs-varid'>uncompressed</span>
<a name="line-87"></a> <span class='hs-varid'>void</span> <span class='hs-varop'>.</span> <span class='hs-varid'>handleDoesNotExist</span> <span class='hs-varop'>$</span>
<a name="line-88"></a> <span class='hs-varid'>removeFile</span> <span class='hs-varid'>indexIdx</span> <span class='hs-comment'>-- Force a full rebuild of the index too</span>
<a name="line-89"></a>
<a name="line-90"></a> <span class='hs-comment'>-- When we update the 00-index.tar we also update the 00-index.tar.idx</span>
<a name="line-91"></a> <span class='hs-comment'>-- so the expected state is that the modification time for the tar.idx</span>
<a name="line-92"></a> <span class='hs-comment'>-- is the same or later than the .tar file. But if someone modified</span>
<a name="line-93"></a> <span class='hs-comment'>-- the 00-index.tar then the modification times will be reversed. So,</span>
<a name="line-94"></a> <span class='hs-comment'>-- if the modification times are reversed then we should not do an</span>
<a name="line-95"></a> <span class='hs-comment'>-- incremental update but should rewrite the whole file.</span>
<a name="line-96"></a> <span class='hs-varid'>cachedIndexProbablyValid</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span>
<a name="line-97"></a> <span class='hs-varid'>cachedIndexProbablyValid</span> <span class='hs-keyglyph'>=</span>
<a name="line-98"></a> <span class='hs-varid'>fmap</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-99"></a> <span class='hs-varid'>handleDoesNotExist</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-100"></a> <span class='hs-varid'>tsUn</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>indexUn</span>
<a name="line-101"></a> <span class='hs-varid'>tsIdx</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>indexIdx</span>
<a name="line-102"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>tsIdx</span> <span class='hs-varop'>>=</span> <span class='hs-varid'>tsUn</span><span class='hs-layout'>)</span>
<a name="line-103"></a>
<a name="line-104"></a> <span class='hs-varid'>indexGz</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>FGz</span>
<a name="line-105"></a> <span class='hs-varid'>indexUn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>FUn</span>
<a name="line-106"></a> <span class='hs-varid'>indexIdx</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cachedIndexIdxPath</span> <span class='hs-varid'>cache</span>
<a name="line-107"></a>
<a name="line-108"></a> <span class='hs-varid'>tarTrailer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integer</span>
<a name="line-109"></a> <span class='hs-varid'>tarTrailer</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1024</span>
<a name="line-110"></a>
<a name="line-111"></a><a name="rebuildTarIndex"></a><span class='hs-comment'>-- | Rebuild the tarball index</span>
<a name="line-112"></a><span class='hs-comment'>--</span>
<a name="line-113"></a><span class='hs-comment'>-- Attempts to add to the existing index, if one exists.</span>
<a name="line-114"></a><span class='hs-comment'>--</span>
<a name="line-115"></a><span class='hs-comment'>-- TODO: Use throwChecked rather than throwUnchecked, and deal with the fallout.</span>
<a name="line-116"></a><span class='hs-comment'>-- See <https://github.com/well-typed/hackage-security/issues/84>.</span>
<a name="line-117"></a><span class='hs-definition'>rebuildTarIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-118"></a><span class='hs-definition'>rebuildTarIndex</span> <span class='hs-varid'>cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-119"></a> <span class='hs-layout'>(</span><span class='hs-varid'>builder</span><span class='hs-layout'>,</span> <span class='hs-varid'>offset</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>initBuilder</span> <span class='hs-varop'><$></span> <span class='hs-varid'>tryReadIndex</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedIndexIdxPath</span> <span class='hs-varid'>cache</span><span class='hs-layout'>)</span>
<a name="line-120"></a> <span class='hs-varid'>withFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>FUn</span><span class='hs-layout'>)</span> <span class='hs-conid'>ReadMode</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>hTar</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-121"></a> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>hSeekEntryOffset</span> <span class='hs-varid'>hTar</span> <span class='hs-varid'>offset</span>
<a name="line-122"></a> <span class='hs-varid'>newEntries</span> <span class='hs-keyglyph'><-</span> <span class='hs-conid'>Tar</span><span class='hs-varop'>.</span><span class='hs-varid'>read</span> <span class='hs-varop'><$></span> <span class='hs-conid'>BS</span><span class='hs-varop'>.</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>hGetContents</span> <span class='hs-varid'>hTar</span>
<a name="line-123"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>addEntries</span> <span class='hs-varid'>builder</span> <span class='hs-varid'>newEntries</span> <span class='hs-keyword'>of</span>
<a name="line-124"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>ex</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>throwUnchecked</span> <span class='hs-varid'>ex</span>
<a name="line-125"></a> <span class='hs-conid'>Right</span> <span class='hs-varid'>idx</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>withFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedIndexIdxPath</span> <span class='hs-varid'>cache</span><span class='hs-layout'>)</span> <span class='hs-conid'>WriteMode</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>hIdx</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-126"></a> <span class='hs-varid'>hSetBuffering</span> <span class='hs-varid'>hIdx</span> <span class='hs-layout'>(</span><span class='hs-conid'>BlockBuffering</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span>
<a name="line-127"></a> <span class='hs-conid'>BS</span><span class='hs-varop'>.</span><span class='hs-varid'>hPut</span> <span class='hs-varid'>hIdx</span> <span class='hs-varop'>$</span> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>serialise</span> <span class='hs-varid'>idx</span>
<a name="line-128"></a> <span class='hs-keyword'>where</span>
<a name="line-129"></a> <span class='hs-comment'>-- The initial index builder</span>
<a name="line-130"></a> <span class='hs-comment'>-- If we don't have an index (or it's broken), we start from scratch</span>
<a name="line-131"></a> <span class='hs-varid'>initBuilder</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Either</span> <span class='hs-varid'>e</span> <span class='hs-conid'>TarIndex</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IndexBuilder</span><span class='hs-layout'>,</span> <span class='hs-conid'>TarEntryOffset</span><span class='hs-layout'>)</span>
<a name="line-132"></a> <span class='hs-varid'>initBuilder</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span><span class='hs-layout'>,</span> <span class='hs-num'>0</span> <span class='hs-layout'>)</span>
<a name="line-133"></a> <span class='hs-varid'>initBuilder</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-varid'>idx</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>unfinalise</span> <span class='hs-varid'>idx</span>
<a name="line-134"></a> <span class='hs-layout'>,</span> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>indexEndEntryOffset</span> <span class='hs-varid'>idx</span>
<a name="line-135"></a> <span class='hs-layout'>)</span>
<a name="line-136"></a>
<a name="line-137"></a><a name="getCached"></a><span class='hs-comment'>-- | Get a cached file (if available)</span>
<a name="line-138"></a><span class='hs-definition'>getCached</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CachedFile</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-139"></a><span class='hs-definition'>getCached</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>cachedFile</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-140"></a> <span class='hs-varid'>exists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>localPath</span>
<a name="line-141"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>exists</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>localPath</span>
<a name="line-142"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Nothing</span>
<a name="line-143"></a> <span class='hs-keyword'>where</span>
<a name="line-144"></a> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cachedFilePath</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>cachedFile</span>
<a name="line-145"></a>
<a name="line-146"></a><a name="getCachedIndex"></a><span class='hs-comment'>-- | Get the cached index (if available)</span>
<a name="line-147"></a><span class='hs-definition'>getCachedIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Format</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-148"></a><span class='hs-definition'>getCachedIndex</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>format</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-149"></a> <span class='hs-varid'>exists</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>localPath</span>
<a name="line-150"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>exists</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Just</span> <span class='hs-varid'>localPath</span>
<a name="line-151"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Nothing</span>
<a name="line-152"></a> <span class='hs-keyword'>where</span>
<a name="line-153"></a> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-varid'>format</span>
<a name="line-154"></a>
<a name="line-155"></a><a name="getCachedRoot"></a><span class='hs-comment'>-- | Get the cached root</span>
<a name="line-156"></a><span class='hs-comment'>--</span>
<a name="line-157"></a><span class='hs-comment'>-- Calling 'getCachedRoot' without root info available is a programmer error</span>
<a name="line-158"></a><span class='hs-comment'>-- and will result in an unchecked exception. See 'requiresBootstrap'.</span>
<a name="line-159"></a><span class='hs-definition'>getCachedRoot</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span><span class='hs-layout'>)</span>
<a name="line-160"></a><span class='hs-definition'>getCachedRoot</span> <span class='hs-varid'>cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-161"></a> <span class='hs-varid'>mPath</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getCached</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>CachedRoot</span>
<a name="line-162"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>mPath</span> <span class='hs-keyword'>of</span>
<a name="line-163"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>p</span>
<a name="line-164"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>internalError</span> <span class='hs-str'>"Client missing root info"</span>
<a name="line-165"></a>
<a name="line-166"></a><a name="getIndexIdx"></a><span class='hs-definition'>getIndexIdx</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>TarIndex</span>
<a name="line-167"></a><span class='hs-definition'>getIndexIdx</span> <span class='hs-varid'>cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-168"></a> <span class='hs-varid'>mIndex</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>tryReadIndex</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cachedIndexIdxPath</span> <span class='hs-varid'>cache</span>
<a name="line-169"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>mIndex</span> <span class='hs-keyword'>of</span>
<a name="line-170"></a> <span class='hs-conid'>Left</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>throwIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>userError</span> <span class='hs-str'>"Could not read index. Did you call 'checkForUpdates'?"</span>
<a name="line-171"></a> <span class='hs-conid'>Right</span> <span class='hs-varid'>idx</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varid'>idx</span>
<a name="line-172"></a>
<a name="line-173"></a><a name="withIndex"></a><span class='hs-definition'>withIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Handle</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span>
<a name="line-174"></a><span class='hs-definition'>withIndex</span> <span class='hs-varid'>cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>cachedIndexPath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>FUn</span><span class='hs-layout'>)</span> <span class='hs-conid'>ReadMode</span>
<a name="line-175"></a>
<a name="line-176"></a><a name="clearCache"></a><span class='hs-comment'>-- | Delete a previously downloaded remote file</span>
<a name="line-177"></a><span class='hs-definition'>clearCache</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-178"></a><span class='hs-definition'>clearCache</span> <span class='hs-varid'>cache</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>void</span> <span class='hs-varop'>.</span> <span class='hs-varid'>handleDoesNotExist</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-179"></a> <span class='hs-varid'>removeFile</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cachedFilePath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>CachedTimestamp</span>
<a name="line-180"></a> <span class='hs-varid'>removeFile</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cachedFilePath</span> <span class='hs-varid'>cache</span> <span class='hs-conid'>CachedSnapshot</span>
<a name="line-181"></a>
<a name="line-182"></a><a name="lockCache"></a><span class='hs-comment'>-- | Lock the cache</span>
<a name="line-183"></a><span class='hs-comment'>--</span>
<a name="line-184"></a><span class='hs-comment'>-- This avoids two concurrent processes updating the cache at the same time,</span>
<a name="line-185"></a><span class='hs-comment'>-- provided they both take the lock.</span>
<a name="line-186"></a><span class='hs-definition'>lockCache</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-187"></a><span class='hs-definition'>lockCache</span> <span class='hs-conid'>Cache</span><span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withDirLock</span> <span class='hs-varid'>cacheRoot</span>
<a name="line-188"></a>
<a name="line-189"></a><span class='hs-comment'>{-------------------------------------------------------------------------------
<a name="line-190"></a> Auxiliary: tar
<a name="line-191"></a>-------------------------------------------------------------------------------}</span>
<a name="line-192"></a>
<a name="line-193"></a><a name="addEntries"></a><span class='hs-comment'>-- | Variation on 'TarIndex.build' that takes in the initial 'IndexBuilder'</span>
<a name="line-194"></a><span class='hs-definition'>addEntries</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IndexBuilder</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Entries</span> <span class='hs-varid'>e</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Either</span> <span class='hs-varid'>e</span> <span class='hs-conid'>TarIndex</span>
<a name="line-195"></a><span class='hs-definition'>addEntries</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span>
<a name="line-196"></a> <span class='hs-keyword'>where</span>
<a name="line-197"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-varid'>builder</span> <span class='hs-layout'>(</span><span class='hs-conid'>Next</span> <span class='hs-varid'>e</span> <span class='hs-varid'>es</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>go</span> <span class='hs-layout'>(</span><span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>addNextEntry</span> <span class='hs-varid'>e</span> <span class='hs-varid'>builder</span><span class='hs-layout'>)</span> <span class='hs-varid'>es</span>
<a name="line-198"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-varid'>builder</span> <span class='hs-conid'>Done</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Right</span> <span class='hs-varop'>$!</span> <span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>finalise</span> <span class='hs-varid'>builder</span>
<a name="line-199"></a> <span class='hs-varid'>go</span> <span class='hs-varop'>!</span><span class='hs-keyword'>_</span> <span class='hs-layout'>(</span><span class='hs-conid'>Fail</span> <span class='hs-varid'>err</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Left</span> <span class='hs-varid'>err</span>
<a name="line-200"></a>
<a name="line-201"></a><a name="tryReadIndex"></a><span class='hs-comment'>-- TODO: How come 'deserialise' uses _strict_ ByteStrings?</span>
<a name="line-202"></a><span class='hs-definition'>tryReadIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Either</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>IOException</span><span class='hs-layout'>)</span> <span class='hs-conid'>TarIndex</span><span class='hs-layout'>)</span>
<a name="line-203"></a><span class='hs-definition'>tryReadIndex</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-204"></a> <span class='hs-varid'>aux</span> <span class='hs-varop'><$></span> <span class='hs-varid'>try</span> <span class='hs-layout'>(</span><span class='hs-conid'>TarIndex</span><span class='hs-varop'>.</span><span class='hs-varid'>deserialise</span> <span class='hs-varop'><$></span> <span class='hs-varid'>readStrictByteString</span> <span class='hs-varid'>fp</span><span class='hs-layout'>)</span>
<a name="line-205"></a> <span class='hs-keyword'>where</span>
<a name="line-206"></a> <span class='hs-varid'>aux</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Either</span> <span class='hs-varid'>e</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-varid'>leftover</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Either</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span> <span class='hs-varid'>a</span>
<a name="line-207"></a> <span class='hs-varid'>aux</span> <span class='hs-layout'>(</span><span class='hs-conid'>Left</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Left</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span>
<a name="line-208"></a> <span class='hs-varid'>aux</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Left</span> <span class='hs-conid'>Nothing</span>
<a name="line-209"></a> <span class='hs-varid'>aux</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Right</span> <span class='hs-varid'>a</span>
<a name="line-210"></a>
<a name="line-211"></a><span class='hs-comment'>{-------------------------------------------------------------------------------
<a name="line-212"></a> Auxiliary: paths
<a name="line-213"></a>-------------------------------------------------------------------------------}</span>
<a name="line-214"></a>
<a name="line-215"></a><a name="cachedFilePath"></a><span class='hs-definition'>cachedFilePath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CachedFile</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span>
<a name="line-216"></a><span class='hs-definition'>cachedFilePath</span> <span class='hs-conid'>Cache</span><span class='hs-layout'>{</span><span class='hs-varid'>cacheLayout</span><span class='hs-keyglyph'>=</span><span class='hs-conid'>CacheLayout</span><span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span> <span class='hs-varid'>file</span> <span class='hs-keyglyph'>=</span>
<a name="line-217"></a> <span class='hs-varid'>anchorCachePath</span> <span class='hs-varid'>cacheRoot</span> <span class='hs-varop'>$</span> <span class='hs-varid'>go</span> <span class='hs-varid'>file</span>
<a name="line-218"></a> <span class='hs-keyword'>where</span>
<a name="line-219"></a> <span class='hs-varid'>go</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CachedFile</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CachePath</span>
<a name="line-220"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>CachedRoot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutRoot</span>
<a name="line-221"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>CachedTimestamp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutTimestamp</span>
<a name="line-222"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>CachedSnapshot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutSnapshot</span>
<a name="line-223"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>CachedMirrors</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutMirrors</span>
<a name="line-224"></a>
<a name="line-225"></a><a name="cachedIndexPath"></a><span class='hs-definition'>cachedIndexPath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Format</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span>
<a name="line-226"></a><span class='hs-definition'>cachedIndexPath</span> <span class='hs-conid'>Cache</span><span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span> <span class='hs-varid'>format</span> <span class='hs-keyglyph'>=</span>
<a name="line-227"></a> <span class='hs-varid'>anchorCachePath</span> <span class='hs-varid'>cacheRoot</span> <span class='hs-varop'>$</span> <span class='hs-varid'>go</span> <span class='hs-varid'>format</span>
<a name="line-228"></a> <span class='hs-keyword'>where</span>
<a name="line-229"></a> <span class='hs-varid'>go</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Format</span> <span class='hs-varid'>f</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CachePath</span>
<a name="line-230"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>FUn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutIndexTar</span> <span class='hs-varid'>cacheLayout</span>
<a name="line-231"></a> <span class='hs-varid'>go</span> <span class='hs-conid'>FGz</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cacheLayoutIndexTarGz</span> <span class='hs-varid'>cacheLayout</span>
<a name="line-232"></a>
<a name="line-233"></a><a name="cachedIndexIdxPath"></a><span class='hs-definition'>cachedIndexIdxPath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Cache</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Path</span> <span class='hs-conid'>Absolute</span>
<a name="line-234"></a><span class='hs-definition'>cachedIndexIdxPath</span> <span class='hs-conid'>Cache</span><span class='hs-layout'>{</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>=</span>
<a name="line-235"></a> <span class='hs-varid'>anchorCachePath</span> <span class='hs-varid'>cacheRoot</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cacheLayoutIndexIdx</span> <span class='hs-varid'>cacheLayout</span>
</pre></body>
</html>
|