libghc-happstack-server-doc 6.6.3-1 / usr / share / doc / libghc-happstack-server-doc / html / src / Happstack-Server-FileServe-BuildingBlocks.html

This file is indexed.

/usr/share/doc/libghc-happstack-server-doc/html/src/Happstack-Server-FileServe-BuildingBlocks.html is in libghc-happstack-server-doc 6.6.3-1.

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
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
<?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/Happstack/Server/FileServe/BuildingBlocks.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE DeriveDataTypeable, FlexibleContexts, ScopedTypeVariables, Rank2Types #-}</span>
<a name="line-2"></a><span class='hs-comment'>-- | Build your own file serving functions</span>
<a name="line-3"></a><span class='hs-comment'>--</span>
<a name="line-4"></a><span class='hs-comment'>-- If the functions in "Happstack.Server.FileServe" do not quite do</span>
<a name="line-5"></a><span class='hs-comment'>-- you want you can roll your own by reusing pieces from this module.</span>
<a name="line-6"></a><span class='hs-comment'>--</span>
<a name="line-7"></a><span class='hs-comment'>-- You will likely want to start by copying the source for a function</span>
<a name="line-8"></a><span class='hs-comment'>-- like, 'serveDirectory' and then modifying it to suit your needs.</span>
<a name="line-9"></a><span class='hs-comment'>--</span>
<a name="line-10"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Happstack</span><span class='hs-varop'>.</span><span class='hs-conid'>Server</span><span class='hs-varop'>.</span><span class='hs-conid'>FileServe</span><span class='hs-varop'>.</span><span class='hs-conid'>BuildingBlocks</span>
<a name="line-11"></a>    <span class='hs-layout'>(</span>
<a name="line-12"></a>     <span class='hs-comment'>-- * High-Level</span>
<a name="line-13"></a>     <span class='hs-comment'>-- ** Serving files from a directory</span>
<a name="line-14"></a>     <span class='hs-varid'>fileServe</span><span class='hs-layout'>,</span>
<a name="line-15"></a>     <span class='hs-varid'>fileServe'</span><span class='hs-layout'>,</span>
<a name="line-16"></a>     <span class='hs-varid'>fileServeLazy</span><span class='hs-layout'>,</span>
<a name="line-17"></a>     <span class='hs-varid'>fileServeStrict</span><span class='hs-layout'>,</span>
<a name="line-18"></a>     <span class='hs-conid'>Browsing</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-19"></a>     <span class='hs-varid'>serveDirectory</span><span class='hs-layout'>,</span>
<a name="line-20"></a>     <span class='hs-comment'>-- ** Serving a single file</span>
<a name="line-21"></a>     <span class='hs-varid'>serveFile</span><span class='hs-layout'>,</span>
<a name="line-22"></a>     <span class='hs-varid'>serveFileUsing</span><span class='hs-layout'>,</span>
<a name="line-23"></a>     <span class='hs-comment'>-- * Low-Level</span>
<a name="line-24"></a>     <span class='hs-varid'>sendFileResponse</span><span class='hs-layout'>,</span>     
<a name="line-25"></a>     <span class='hs-varid'>lazyByteStringResponse</span><span class='hs-layout'>,</span>
<a name="line-26"></a>     <span class='hs-varid'>strictByteStringResponse</span><span class='hs-layout'>,</span>
<a name="line-27"></a>     <span class='hs-varid'>filePathSendFile</span><span class='hs-layout'>,</span>
<a name="line-28"></a>     <span class='hs-varid'>filePathLazy</span><span class='hs-layout'>,</span>
<a name="line-29"></a>     <span class='hs-varid'>filePathStrict</span><span class='hs-layout'>,</span>
<a name="line-30"></a>     <span class='hs-comment'>-- * Content-Type \/ Mime-Type</span>
<a name="line-31"></a>     <span class='hs-conid'>MimeMap</span><span class='hs-layout'>,</span>
<a name="line-32"></a>     <span class='hs-varid'>mimeTypes</span><span class='hs-layout'>,</span>
<a name="line-33"></a>     <span class='hs-varid'>asContentType</span><span class='hs-layout'>,</span>
<a name="line-34"></a>     <span class='hs-varid'>guessContentType</span><span class='hs-layout'>,</span>
<a name="line-35"></a>     <span class='hs-varid'>guessContentTypeM</span><span class='hs-layout'>,</span>
<a name="line-36"></a>     <span class='hs-comment'>-- * Directory Browsing</span>
<a name="line-37"></a>     <span class='hs-conid'>EntryKind</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-38"></a>     <span class='hs-varid'>browseIndex</span><span class='hs-layout'>,</span>
<a name="line-39"></a>     <span class='hs-varid'>renderDirectoryContents</span><span class='hs-layout'>,</span>
<a name="line-40"></a>     <span class='hs-varid'>renderDirectoryContentsTable</span><span class='hs-layout'>,</span>
<a name="line-41"></a>     <span class='hs-comment'>-- * Other</span>
<a name="line-42"></a>     <span class='hs-varid'>blockDotFiles</span><span class='hs-layout'>,</span>
<a name="line-43"></a>     <span class='hs-varid'>defaultIxFiles</span><span class='hs-layout'>,</span>
<a name="line-44"></a>     <span class='hs-varid'>isSafePath</span><span class='hs-layout'>,</span>
<a name="line-45"></a>     <span class='hs-varid'>tryIndex</span><span class='hs-layout'>,</span>
<a name="line-46"></a>     <span class='hs-varid'>doIndex</span><span class='hs-layout'>,</span>
<a name="line-47"></a>     <span class='hs-varid'>doIndex'</span><span class='hs-layout'>,</span>
<a name="line-48"></a>     <span class='hs-varid'>doIndexLazy</span><span class='hs-layout'>,</span>
<a name="line-49"></a>     <span class='hs-varid'>doIndexStrict</span><span class='hs-layout'>,</span>
<a name="line-50"></a>     <span class='hs-varid'>fileNotFound</span><span class='hs-layout'>,</span>
<a name="line-51"></a>     <span class='hs-varid'>isDot</span>
<a name="line-52"></a>    <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-53"></a>
<a name="line-54"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Exception</span><span class='hs-varop'>.</span><span class='hs-conid'>Extensible</span> <span class='hs-layout'>(</span><span class='hs-conid'>IOException</span><span class='hs-layout'>,</span> <span class='hs-varid'>bracket</span><span class='hs-layout'>,</span> <span class='hs-varid'>catch</span><span class='hs-layout'>)</span>
<a name="line-55"></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-conid'>MonadPlus</span><span class='hs-layout'>(</span><span class='hs-varid'>mzero</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>msum</span><span class='hs-layout'>)</span>
<a name="line-56"></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-varop'>.</span><span class='hs-conid'>Trans</span>          <span class='hs-layout'>(</span><span class='hs-conid'>MonadIO</span><span class='hs-layout'>(</span><span class='hs-varid'>liftIO</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-57"></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-varop'>.</span><span class='hs-conid'>Char8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>L</span>
<a name="line-58"></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'>Char8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>S</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'>Data</span>                    <span class='hs-layout'>(</span><span class='hs-conid'>Data</span><span class='hs-layout'>,</span> <span class='hs-conid'>Typeable</span><span class='hs-layout'>)</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'>List</span>                    <span class='hs-layout'>(</span><span class='hs-varid'>sort</span><span class='hs-layout'>)</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'>Maybe</span>                   <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span><span class='hs-layout'>)</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'>Map</span>           <span class='hs-layout'>(</span><span class='hs-conid'>Map</span><span class='hs-layout'>)</span>
<a name="line-63"></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'>Map</span>
<a name="line-64"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Happstack</span><span class='hs-varop'>.</span><span class='hs-conid'>Server</span><span class='hs-varop'>.</span><span class='hs-conid'>Monads</span>      <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span><span class='hs-layout'>(</span><span class='hs-varid'>askRq</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span><span class='hs-layout'>,</span> <span class='hs-conid'>WebMonad</span><span class='hs-layout'>)</span>
<a name="line-65"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Happstack</span><span class='hs-varop'>.</span><span class='hs-conid'>Server</span><span class='hs-varop'>.</span><span class='hs-conid'>Response</span>    <span class='hs-layout'>(</span><span class='hs-conid'>ToMessage</span><span class='hs-layout'>(</span><span class='hs-varid'>toResponse</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>ifModifiedSince</span><span class='hs-layout'>,</span> <span class='hs-varid'>forbidden</span><span class='hs-layout'>,</span> <span class='hs-varid'>ok</span><span class='hs-layout'>,</span> <span class='hs-varid'>seeOther</span><span class='hs-layout'>)</span>
<a name="line-66"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Happstack</span><span class='hs-varop'>.</span><span class='hs-conid'>Server</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>       <span class='hs-layout'>(</span><span class='hs-conid'>Length</span><span class='hs-layout'>(</span><span class='hs-conid'>ContentLength</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Request</span><span class='hs-layout'>(</span><span class='hs-varid'>rqPaths</span><span class='hs-layout'>,</span> <span class='hs-varid'>rqUri</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Response</span><span class='hs-layout'>(</span><span class='hs-conid'>SendFile</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>RsFlags</span><span class='hs-layout'>(</span><span class='hs-varid'>rsfLength</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>nullRsFlags</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>,</span> <span class='hs-varid'>resultBS</span><span class='hs-layout'>,</span> <span class='hs-varid'>setHeader</span><span class='hs-layout'>)</span>
<a name="line-67"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span>                      <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>catch</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'>Directory</span>             <span class='hs-layout'>(</span><span class='hs-varid'>doesDirectoryExist</span><span class='hs-layout'>,</span> <span class='hs-varid'>doesFileExist</span><span class='hs-layout'>,</span> <span class='hs-varid'>getDirectoryContents</span><span class='hs-layout'>,</span> <span class='hs-varid'>getModificationTime</span><span class='hs-layout'>)</span>
<a name="line-69"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>FilePath</span>              <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varop'>&lt;/&gt;</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>addTrailingPathSeparator</span><span class='hs-layout'>,</span> <span class='hs-varid'>hasDrive</span><span class='hs-layout'>,</span> <span class='hs-varid'>isPathSeparator</span><span class='hs-layout'>,</span> <span class='hs-varid'>joinPath</span><span class='hs-layout'>,</span> <span class='hs-varid'>takeExtension</span><span class='hs-layout'>,</span> <span class='hs-varid'>isValid</span><span class='hs-layout'>)</span>
<a name="line-70"></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-conid'>IOMode</span><span class='hs-layout'>(</span><span class='hs-conid'>ReadMode</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>hFileSize</span><span class='hs-layout'>,</span> <span class='hs-varid'>hClose</span><span class='hs-layout'>,</span> <span class='hs-varid'>openBinaryFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>withBinaryFile</span><span class='hs-layout'>)</span>
<a name="line-71"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Locale</span>                <span class='hs-layout'>(</span><span class='hs-varid'>defaultTimeLocale</span><span class='hs-layout'>)</span>
<a name="line-72"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Log</span><span class='hs-varop'>.</span><span class='hs-conid'>Logger</span>            <span class='hs-layout'>(</span><span class='hs-conid'>Priority</span><span class='hs-layout'>(</span><span class='hs-conid'>DEBUG</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>logM</span><span class='hs-layout'>)</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'>Time</span>                  <span class='hs-layout'>(</span><span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>formatCalendarTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>toCalendarTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>toUTCTime</span><span class='hs-layout'>)</span>
<a name="line-74"></a><span class='hs-keyword'>import</span>           <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Blaze</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-75"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>Html5</span>            <span class='hs-keyword'>as</span> <span class='hs-conid'>H</span>
<a name="line-76"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>Html5</span><span class='hs-varop'>.</span><span class='hs-conid'>Attributes</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>A</span>
<a name="line-77"></a>
<a name="line-78"></a><span class='hs-comment'>-- * Mime-Type / Content-Type</span>
<a name="line-79"></a>
<a name="line-80"></a><a name="MimeMap"></a><span class='hs-comment'>-- |a 'Map' from file extensions to content-types</span>
<a name="line-81"></a><a name="MimeMap"></a><span class='hs-comment'>-- </span>
<a name="line-82"></a><a name="MimeMap"></a><span class='hs-comment'>-- example:</span>
<a name="line-83"></a><a name="MimeMap"></a><span class='hs-comment'>--</span>
<a name="line-84"></a><a name="MimeMap"></a><span class='hs-comment'>-- &gt; myMimeMap :: MimeMap</span>
<a name="line-85"></a><a name="MimeMap"></a><span class='hs-comment'>-- &gt; myMimeMap = Map.fromList [("gz","application/x-gzip"), ... ]</span>
<a name="line-86"></a><a name="MimeMap"></a><span class='hs-comment'>--</span>
<a name="line-87"></a><a name="MimeMap"></a><span class='hs-comment'>-- see also: 'mimeTypes'</span>
<a name="line-88"></a><a name="MimeMap"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>MimeMap</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Map</span> <span class='hs-conid'>String</span> <span class='hs-conid'>String</span>
<a name="line-89"></a>
<a name="line-90"></a><a name="guessContentType"></a><span class='hs-comment'>-- | try to guess the content-type of a file based on its extension</span>
<a name="line-91"></a><span class='hs-comment'>--</span>
<a name="line-92"></a><span class='hs-comment'>-- see also: 'guessContentTypeM'</span>
<a name="line-93"></a><span class='hs-definition'>guessContentType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MimeMap</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>String</span>
<a name="line-94"></a><span class='hs-definition'>guessContentType</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>filepath</span> <span class='hs-keyglyph'>=</span>
<a name="line-95"></a>    <span class='hs-keyword'>case</span> <span class='hs-varid'>getExt</span> <span class='hs-varid'>filepath</span> <span class='hs-keyword'>of</span>
<a name="line-96"></a>      <span class='hs-str'>""</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Nothing</span>
<a name="line-97"></a>      <span class='hs-varid'>ext</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>lookup</span> <span class='hs-varid'>ext</span> <span class='hs-varid'>mimeMap</span>
<a name="line-98"></a>
<a name="line-99"></a><a name="guessContentTypeM"></a><span class='hs-comment'>-- | try to guess the content-type of a file based on its extension</span>
<a name="line-100"></a><span class='hs-comment'>--</span>
<a name="line-101"></a><span class='hs-comment'>-- defaults to "application/octet-stream" if no match was found.</span>
<a name="line-102"></a><span class='hs-comment'>--</span>
<a name="line-103"></a><span class='hs-comment'>-- Useful as an argument to 'serveFile'</span>
<a name="line-104"></a><span class='hs-comment'>--</span>
<a name="line-105"></a><span class='hs-comment'>-- see also: 'guessContentType', 'serveFile'</span>
<a name="line-106"></a><span class='hs-definition'>guessContentTypeM</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Monad</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span> <span class='hs-conid'>MimeMap</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-107"></a><span class='hs-definition'>guessContentTypeM</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>filePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-str'>"application/octet-stream"</span> <span class='hs-varop'>$</span> <span class='hs-varid'>guessContentType</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>filePath</span>
<a name="line-108"></a>
<a name="line-109"></a><a name="asContentType"></a><span class='hs-comment'>-- | returns a specific content type, completely ignoring the 'FilePath' argument. </span>
<a name="line-110"></a><span class='hs-comment'>--</span>
<a name="line-111"></a><span class='hs-comment'>-- Use this with 'serveFile' if you want to explicitly specify the</span>
<a name="line-112"></a><span class='hs-comment'>-- content-type.</span>
<a name="line-113"></a><span class='hs-comment'>--</span>
<a name="line-114"></a><span class='hs-comment'>-- see also: 'guessContentTypeM', 'serveFile'</span>
<a name="line-115"></a><span class='hs-definition'>asContentType</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Monad</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span> 
<a name="line-116"></a>                 <span class='hs-conid'>String</span>  <span class='hs-comment'>-- ^ the content-type to return</span>
<a name="line-117"></a>              <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-118"></a><span class='hs-definition'>asContentType</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>const</span> <span class='hs-varop'>.</span> <span class='hs-varid'>return</span>
<a name="line-119"></a>
<a name="line-120"></a><a name="defaultIxFiles"></a><span class='hs-comment'>-- | a list of common index files. Specifically: @index.html@, @index.xml@, @index.gif@</span>
<a name="line-121"></a><span class='hs-comment'>-- </span>
<a name="line-122"></a><span class='hs-comment'>-- Typically used as an argument to 'serveDiretory'.</span>
<a name="line-123"></a><span class='hs-definition'>defaultIxFiles</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-124"></a><span class='hs-definition'>defaultIxFiles</span><span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-str'>"index.html"</span><span class='hs-layout'>,</span><span class='hs-str'>"index.xml"</span><span class='hs-layout'>,</span><span class='hs-str'>"index.gif"</span><span class='hs-keyglyph'>]</span>
<a name="line-125"></a>
<a name="line-126"></a><a name="fileNotFound"></a><span class='hs-comment'>-- | return a simple "File not found 404 page."</span>
<a name="line-127"></a><span class='hs-definition'>fileNotFound</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Monad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-128"></a><span class='hs-definition'>fileNotFound</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>result</span> <span class='hs-num'>404</span> <span class='hs-varop'>$</span> <span class='hs-str'>"File not found "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>fp</span>
<a name="line-129"></a>
<a name="line-130"></a><a name="getExt"></a><span class='hs-comment'>-- | Similar to 'takeExtension' but does not include the extension separator char</span>
<a name="line-131"></a><span class='hs-definition'>getExt</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>String</span>
<a name="line-132"></a><span class='hs-definition'>getExt</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>drop</span> <span class='hs-num'>1</span> <span class='hs-varop'>$</span> <span class='hs-varid'>takeExtension</span> <span class='hs-varid'>fp</span>
<a name="line-133"></a>
<a name="line-134"></a><a name="blockDotFiles"></a><span class='hs-comment'>-- | Prevents files of the form '.foo' or 'bar/.foo' from being served</span>
<a name="line-135"></a><span class='hs-definition'>blockDotFiles</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Request</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Request</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Response</span>
<a name="line-136"></a><span class='hs-definition'>blockDotFiles</span> <span class='hs-varid'>fn</span> <span class='hs-varid'>rq</span>
<a name="line-137"></a>    <span class='hs-keyglyph'>|</span> <span class='hs-varid'>isDot</span> <span class='hs-layout'>(</span><span class='hs-varid'>joinPath</span> <span class='hs-layout'>(</span><span class='hs-varid'>rqPaths</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>result</span> <span class='hs-num'>403</span> <span class='hs-str'>"Dot files not allowed."</span>
<a name="line-138"></a>    <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fn</span> <span class='hs-varid'>rq</span>
<a name="line-139"></a>
<a name="line-140"></a><a name="isDot"></a><span class='hs-comment'>-- | Returns True if the given String either starts with a . or is of the form</span>
<a name="line-141"></a><span class='hs-comment'>-- "foo/.bar", e.g. the typical *nix convention for hidden files.</span>
<a name="line-142"></a><span class='hs-definition'>isDot</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Bool</span>
<a name="line-143"></a><span class='hs-definition'>isDot</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>isD</span> <span class='hs-varop'>.</span> <span class='hs-varid'>reverse</span>
<a name="line-144"></a>    <span class='hs-keyword'>where</span>
<a name="line-145"></a>    <span class='hs-varid'>isD</span> <span class='hs-layout'>(</span><span class='hs-chr'>'.'</span><span class='hs-conop'>:</span><span class='hs-chr'>'/'</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-146"></a>    <span class='hs-varid'>isD</span> <span class='hs-keyglyph'>[</span><span class='hs-chr'>'.'</span><span class='hs-keyglyph'>]</span>       <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-147"></a>    <span class='hs-comment'>--isD ('/':_)     = False</span>
<a name="line-148"></a>    <span class='hs-varid'>isD</span> <span class='hs-layout'>(</span><span class='hs-keyword'>_</span><span class='hs-conop'>:</span><span class='hs-varid'>cs</span><span class='hs-layout'>)</span>      <span class='hs-keyglyph'>=</span> <span class='hs-varid'>isD</span> <span class='hs-varid'>cs</span>
<a name="line-149"></a>    <span class='hs-varid'>isD</span> <span class='hs-conid'>[]</span>          <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-150"></a>
<a name="line-151"></a><span class='hs-comment'>-- * Low-level functions for generating a Response</span>
<a name="line-152"></a>
<a name="line-153"></a><a name="sendFileResponse"></a><span class='hs-comment'>-- | Use sendFile to send the contents of a Handle</span>
<a name="line-154"></a><span class='hs-definition'>sendFileResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>  <span class='hs-comment'>-- ^ content-type string</span>
<a name="line-155"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>  <span class='hs-comment'>-- ^ file path for content to send</span>
<a name="line-156"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Request</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ mod-time for the handle (MUST NOT be later than server's time of message origination), incoming request (used to check for if-modified-since header)</span>
<a name="line-157"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ offset into Handle</span>
<a name="line-158"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ number of bytes to send</span>
<a name="line-159"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Response</span>
<a name="line-160"></a><span class='hs-definition'>sendFileResponse</span> <span class='hs-varid'>ct</span> <span class='hs-varid'>filePath</span> <span class='hs-varid'>mModTime</span> <span class='hs-varid'>offset</span> <span class='hs-varid'>count</span> <span class='hs-keyglyph'>=</span>
<a name="line-161"></a>    <span class='hs-keyword'>let</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>setHeader</span> <span class='hs-str'>"Content-Type"</span> <span class='hs-varid'>ct</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> 
<a name="line-162"></a>               <span class='hs-layout'>(</span><span class='hs-conid'>SendFile</span> <span class='hs-num'>200</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-layout'>(</span><span class='hs-varid'>nullRsFlags</span> <span class='hs-layout'>{</span> <span class='hs-varid'>rsfLength</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ContentLength</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-conid'>Nothing</span> <span class='hs-varid'>filePath</span> <span class='hs-varid'>offset</span> <span class='hs-varid'>count</span><span class='hs-layout'>)</span>
<a name="line-163"></a>              <span class='hs-layout'>)</span>
<a name="line-164"></a>    <span class='hs-keyword'>in</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mModTime</span> <span class='hs-keyword'>of</span>
<a name="line-165"></a>         <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>res</span>
<a name="line-166"></a>         <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>modTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>request</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>ifModifiedSince</span> <span class='hs-varid'>modTime</span> <span class='hs-varid'>request</span> <span class='hs-varid'>res</span>
<a name="line-167"></a>
<a name="line-168"></a><a name="lazyByteStringResponse"></a><span class='hs-comment'>-- | Send the contents of a Lazy ByteString</span>
<a name="line-169"></a><span class='hs-comment'>--</span>
<a name="line-170"></a><span class='hs-definition'>lazyByteStringResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>   <span class='hs-comment'>-- ^ content-type string (e.g. @\"text/plain; charset=utf-8\"@)</span>
<a name="line-171"></a>                       <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>   <span class='hs-comment'>-- ^ lazy bytestring content to send</span>
<a name="line-172"></a>                       <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Request</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ mod-time for the bytestring, incoming request (used to check for if-modified-since header)</span>
<a name="line-173"></a>                       <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ offset into the bytestring</span>
<a name="line-174"></a>                       <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ number of bytes to send (offset + count must be less than or equal to the length of the bytestring)</span>
<a name="line-175"></a>                       <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Response</span>
<a name="line-176"></a><span class='hs-definition'>lazyByteStringResponse</span> <span class='hs-varid'>ct</span> <span class='hs-varid'>body</span> <span class='hs-varid'>mModTime</span> <span class='hs-varid'>offset</span> <span class='hs-varid'>count</span> <span class='hs-keyglyph'>=</span>
<a name="line-177"></a>    <span class='hs-keyword'>let</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>setHeader</span> <span class='hs-str'>"Content-Type"</span> <span class='hs-varid'>ct</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-178"></a>               <span class='hs-varid'>resultBS</span> <span class='hs-num'>200</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>take</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromInteger</span> <span class='hs-varid'>count</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</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'>offset</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>  <span class='hs-varid'>body</span><span class='hs-layout'>)</span>
<a name="line-179"></a>              <span class='hs-layout'>)</span>
<a name="line-180"></a>    <span class='hs-keyword'>in</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mModTime</span> <span class='hs-keyword'>of</span>
<a name="line-181"></a>         <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>res</span>
<a name="line-182"></a>         <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>modTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>request</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>ifModifiedSince</span> <span class='hs-varid'>modTime</span> <span class='hs-varid'>request</span> <span class='hs-varid'>res</span>
<a name="line-183"></a>
<a name="line-184"></a><a name="strictByteStringResponse"></a><span class='hs-comment'>-- | Send the contents of a Lazy ByteString</span>
<a name="line-185"></a><span class='hs-definition'>strictByteStringResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>   <span class='hs-comment'>-- ^ content-type string (e.g. @\"text/plain; charset=utf-8\"@)</span>
<a name="line-186"></a>                         <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>   <span class='hs-comment'>-- ^ lazy bytestring content to send</span>
<a name="line-187"></a>                         <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Request</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ mod-time for the bytestring, incoming request (used to check for if-modified-since header)</span>
<a name="line-188"></a>                         <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ offset into the bytestring</span>
<a name="line-189"></a>                         <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Integer</span> <span class='hs-comment'>-- ^ number of bytes to send (offset + count must be less than or equal to the length of the bytestring)</span>
<a name="line-190"></a>                         <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Response</span>
<a name="line-191"></a><span class='hs-definition'>strictByteStringResponse</span> <span class='hs-varid'>ct</span> <span class='hs-varid'>body</span> <span class='hs-varid'>mModTime</span> <span class='hs-varid'>offset</span> <span class='hs-varid'>count</span> <span class='hs-keyglyph'>=</span>
<a name="line-192"></a>    <span class='hs-keyword'>let</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>setHeader</span> <span class='hs-str'>"Content-Type"</span> <span class='hs-varid'>ct</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-193"></a>               <span class='hs-varid'>resultBS</span> <span class='hs-num'>200</span> <span class='hs-layout'>(</span><span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>fromChunks</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>take</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromInteger</span> <span class='hs-varid'>count</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-conid'>S</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'>offset</span><span class='hs-layout'>)</span> <span class='hs-varid'>body</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-194"></a>              <span class='hs-layout'>)</span>
<a name="line-195"></a>    <span class='hs-keyword'>in</span> <span class='hs-keyword'>case</span> <span class='hs-varid'>mModTime</span> <span class='hs-keyword'>of</span>
<a name="line-196"></a>         <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>res</span>
<a name="line-197"></a>         <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>modTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>request</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>ifModifiedSince</span> <span class='hs-varid'>modTime</span> <span class='hs-varid'>request</span> <span class='hs-varid'>res</span>
<a name="line-198"></a>
<a name="line-199"></a><a name="filePathSendFile"></a><span class='hs-comment'>-- | Send the specified file with the specified mime-type using sendFile()</span>
<a name="line-200"></a><span class='hs-comment'>--</span>
<a name="line-201"></a><span class='hs-comment'>-- NOTE: assumes file exists and is readable by the server. See 'serveFileUsing'.</span>
<a name="line-202"></a><span class='hs-comment'>--</span>
<a name="line-203"></a><span class='hs-comment'>-- WARNING: No security checks are performed.</span>
<a name="line-204"></a><span class='hs-definition'>filePathSendFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-205"></a>                 <span class='hs-keyglyph'>=&gt;</span> <span class='hs-conid'>String</span>   <span class='hs-comment'>-- ^ content-type string</span>
<a name="line-206"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ path to file on disk</span>
<a name="line-207"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-208"></a><span class='hs-definition'>filePathSendFile</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-209"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>count</span>   <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>withBinaryFile</span> <span class='hs-varid'>fp</span> <span class='hs-conid'>ReadMode</span> <span class='hs-varid'>hFileSize</span> <span class='hs-comment'>-- garbage collection should close this</span>
<a name="line-210"></a>       <span class='hs-varid'>modtime</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>fp</span>
<a name="line-211"></a>       <span class='hs-varid'>rq</span>      <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>askRq</span>
<a name="line-212"></a>       <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>sendFileResponse</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>fp</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>toUTCTime</span> <span class='hs-varid'>modtime</span><span class='hs-layout'>,</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-num'>0</span> <span class='hs-varid'>count</span>
<a name="line-213"></a>
<a name="line-214"></a><a name="filePathLazy"></a><span class='hs-comment'>-- | Send the specified file with the specified mime-type using lazy ByteStrings</span>
<a name="line-215"></a><span class='hs-comment'>--</span>
<a name="line-216"></a><span class='hs-comment'>-- NOTE: assumes file exists and is readable by the server. See 'serveFileUsing'.</span>
<a name="line-217"></a><span class='hs-comment'>--</span>
<a name="line-218"></a><span class='hs-comment'>-- WARNING: No security checks are performed.</span>
<a name="line-219"></a><span class='hs-definition'>filePathLazy</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-220"></a>                 <span class='hs-keyglyph'>=&gt;</span> <span class='hs-conid'>String</span>   <span class='hs-comment'>-- ^ content-type string</span>
<a name="line-221"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ path to file on disk</span>
<a name="line-222"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-223"></a><span class='hs-definition'>filePathLazy</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-224"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>handle</span>   <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>openBinaryFile</span> <span class='hs-varid'>fp</span> <span class='hs-conid'>ReadMode</span> <span class='hs-comment'>-- garbage collection should close this</span>
<a name="line-225"></a>       <span class='hs-varid'>contents</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</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'>handle</span>
<a name="line-226"></a>       <span class='hs-varid'>modtime</span>  <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>fp</span>
<a name="line-227"></a>       <span class='hs-varid'>count</span>    <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>hFileSize</span> <span class='hs-varid'>handle</span>
<a name="line-228"></a>       <span class='hs-varid'>rq</span>       <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>askRq</span>
<a name="line-229"></a>       <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>lazyByteStringResponse</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>contents</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>toUTCTime</span> <span class='hs-varid'>modtime</span><span class='hs-layout'>,</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-num'>0</span> <span class='hs-varid'>count</span>
<a name="line-230"></a>
<a name="line-231"></a><a name="filePathStrict"></a><span class='hs-comment'>-- | Send the specified file with the specified mime-type using strict ByteStrings</span>
<a name="line-232"></a><span class='hs-comment'>--</span>
<a name="line-233"></a><span class='hs-comment'>-- NOTE: assumes file exists and is readable by the server. See 'serveFileUsing'.</span>
<a name="line-234"></a><span class='hs-comment'>--</span>
<a name="line-235"></a><span class='hs-comment'>-- WARNING: No security checks are performed.</span>
<a name="line-236"></a><span class='hs-definition'>filePathStrict</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-237"></a>                 <span class='hs-keyglyph'>=&gt;</span> <span class='hs-conid'>String</span>   <span class='hs-comment'>-- ^ content-type string</span>
<a name="line-238"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ path to file on disk</span>
<a name="line-239"></a>                 <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-240"></a><span class='hs-definition'>filePathStrict</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-241"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>contents</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-conid'>S</span><span class='hs-varop'>.</span><span class='hs-varid'>readFile</span> <span class='hs-varid'>fp</span>
<a name="line-242"></a>       <span class='hs-varid'>modtime</span>  <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>fp</span>
<a name="line-243"></a>       <span class='hs-varid'>count</span>    <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>withBinaryFile</span> <span class='hs-varid'>fp</span> <span class='hs-conid'>ReadMode</span> <span class='hs-varid'>hFileSize</span>
<a name="line-244"></a>       <span class='hs-varid'>rq</span>       <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>askRq</span>
<a name="line-245"></a>       <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>strictByteStringResponse</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>contents</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>toUTCTime</span> <span class='hs-varid'>modtime</span><span class='hs-layout'>,</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-num'>0</span> <span class='hs-varid'>count</span>
<a name="line-246"></a>
<a name="line-247"></a><span class='hs-comment'>-- * High-level functions for serving files</span>
<a name="line-248"></a>
<a name="line-249"></a>
<a name="line-250"></a><span class='hs-comment'>-- ** Serve a single file</span>
<a name="line-251"></a>
<a name="line-252"></a><a name="serveFileUsing"></a><span class='hs-comment'>-- | Serve a single, specified file. The name of the file being served is specified explicity. It is not derived automatically from the 'Request' url.</span>
<a name="line-253"></a><span class='hs-comment'>-- </span>
<a name="line-254"></a><span class='hs-comment'>-- example 1:</span>
<a name="line-255"></a><span class='hs-comment'>-- </span>
<a name="line-256"></a><span class='hs-comment'>--  Serve using sendfile() and the specified content-type</span>
<a name="line-257"></a><span class='hs-comment'>--</span>
<a name="line-258"></a><span class='hs-comment'>-- &gt; serveFileUsing filePathSendFile (asContentType "image/jpeg") "/srv/data/image.jpg"</span>
<a name="line-259"></a><span class='hs-comment'>--</span>
<a name="line-260"></a><span class='hs-comment'>--</span>
<a name="line-261"></a><span class='hs-comment'>-- example 2:</span>
<a name="line-262"></a><span class='hs-comment'>-- </span>
<a name="line-263"></a><span class='hs-comment'>--  Serve using a lazy ByteString and the guess the content-type from the extension</span>
<a name="line-264"></a><span class='hs-comment'>-- </span>
<a name="line-265"></a><span class='hs-comment'>-- &gt; serveFileUsing filePathLazy (guessContentTypeM mimeTypes) "/srv/data/image.jpg"</span>
<a name="line-266"></a><span class='hs-comment'>-- </span>
<a name="line-267"></a><span class='hs-comment'>-- WARNING: No security checks are performed.</span>
<a name="line-268"></a><span class='hs-definition'>serveFileUsing</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> 
<a name="line-269"></a>               <span class='hs-keyglyph'>=&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ typically 'filePathSendFile', 'filePathLazy', or 'filePathStrict'</span>
<a name="line-270"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>  <span class='hs-comment'>-- ^ function for determining content-type of file. Typically 'asContentType' or 'guessContentTypeM'</span>
<a name="line-271"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ path to the file to serve</span>
<a name="line-272"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-273"></a><span class='hs-definition'>serveFileUsing</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span> 
<a name="line-274"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>fe</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>fp</span>
<a name="line-275"></a>       <span class='hs-keyword'>if</span> <span class='hs-varid'>fe</span>
<a name="line-276"></a>          <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>mt</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>fp</span>
<a name="line-277"></a>                  <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mt</span> <span class='hs-varid'>fp</span>
<a name="line-278"></a>          <span class='hs-keyword'>else</span> <span class='hs-varid'>mzero</span>
<a name="line-279"></a>
<a name="line-280"></a><a name="serveFile"></a><span class='hs-comment'>-- | Serve a single, specified file. The name of the file being served is specified explicity. It is not derived automatically from the 'Request' url.</span>
<a name="line-281"></a><span class='hs-comment'>-- </span>
<a name="line-282"></a><span class='hs-comment'>-- example 1:</span>
<a name="line-283"></a><span class='hs-comment'>-- </span>
<a name="line-284"></a><span class='hs-comment'>--  Serve as a specific content-type:</span>
<a name="line-285"></a><span class='hs-comment'>--</span>
<a name="line-286"></a><span class='hs-comment'>-- &gt; serveFile (asContentType "image/jpeg") "/srv/data/image.jpg"</span>
<a name="line-287"></a><span class='hs-comment'>--</span>
<a name="line-288"></a><span class='hs-comment'>--</span>
<a name="line-289"></a><span class='hs-comment'>-- example 2:</span>
<a name="line-290"></a><span class='hs-comment'>-- </span>
<a name="line-291"></a><span class='hs-comment'>--  Serve guessing the content-type from the extension:</span>
<a name="line-292"></a><span class='hs-comment'>-- </span>
<a name="line-293"></a><span class='hs-comment'>-- &gt; serveFile (guessContentTypeM mimeTypes) "/srv/data/image.jpg"</span>
<a name="line-294"></a><span class='hs-comment'>--</span>
<a name="line-295"></a><span class='hs-comment'>-- If the specified path does not exist or is not a file, this function will return 'mzero'.</span>
<a name="line-296"></a><span class='hs-comment'>-- </span>
<a name="line-297"></a><span class='hs-comment'>-- WARNING: No security checks are performed.</span>
<a name="line-298"></a><span class='hs-comment'>--</span>
<a name="line-299"></a><span class='hs-comment'>-- NOTE: alias for 'serveFileUsing' 'filePathSendFile'</span>
<a name="line-300"></a><span class='hs-definition'>serveFile</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span> 
<a name="line-301"></a>             <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>   <span class='hs-comment'>-- ^ function for determining content-type of file. Typically 'asContentType' or 'guessContentTypeM'</span>
<a name="line-302"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>                 <span class='hs-comment'>-- ^ path to the file to serve</span>
<a name="line-303"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-304"></a><span class='hs-definition'>serveFile</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>serveFileUsing</span> <span class='hs-varid'>filePathSendFile</span>
<a name="line-305"></a>
<a name="line-306"></a><span class='hs-comment'>-- ** Serve files from a directory</span>
<a name="line-307"></a>
<a name="line-308"></a><a name="fileServe'"></a><span class='hs-comment'>-- | Serve files from a directory and its subdirectories (parameterizable version)</span>
<a name="line-309"></a><span class='hs-comment'>-- </span>
<a name="line-310"></a><span class='hs-comment'>-- Parameterize this function to create functions like, 'fileServe', 'fileServeLazy', and 'fileServeStrict'</span>
<a name="line-311"></a><span class='hs-comment'>--</span>
<a name="line-312"></a><span class='hs-comment'>-- You supply:</span>
<a name="line-313"></a><span class='hs-comment'>--</span>
<a name="line-314"></a><span class='hs-comment'>--  1. a low-level function which takes a content-type and 'FilePath' and generates a Response</span>
<a name="line-315"></a><span class='hs-comment'>--</span>
<a name="line-316"></a><span class='hs-comment'>--  2. a function which determines the content-type from the 'FilePath'</span>
<a name="line-317"></a><span class='hs-comment'>--</span>
<a name="line-318"></a><span class='hs-comment'>--  3. a list of all the default index files</span>
<a name="line-319"></a><span class='hs-comment'>--</span>
<a name="line-320"></a><span class='hs-comment'>-- NOTE: unlike fileServe, there are no index files by default. See 'defaultIxFiles'.</span>
<a name="line-321"></a><span class='hs-definition'>fileServe'</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span> <span class='hs-conid'>WebMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span>
<a name="line-322"></a>              <span class='hs-layout'>,</span> <span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span>
<a name="line-323"></a>              <span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span>
<a name="line-324"></a>              <span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span>
<a name="line-325"></a>              <span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span>
<a name="line-326"></a>              <span class='hs-layout'>)</span> 
<a name="line-327"></a>           <span class='hs-keyglyph'>=&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ function which takes a content-type and filepath and generates a response (typically 'filePathSendFile', 'filePathLazy', or 'filePathStrict')</span>
<a name="line-328"></a>           <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ function which returns the mime-type for FilePath</span>
<a name="line-329"></a><span class='hs-comment'>--           -&gt; [FilePath]         -- ^ index file names, in case the requested path is a directory</span>
<a name="line-330"></a>           <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span>
<a name="line-331"></a>           <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>           <span class='hs-comment'>-- ^ file/directory to serve</span>
<a name="line-332"></a>           <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-333"></a><span class='hs-definition'>fileServe'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-334"></a>    <span class='hs-varid'>rq</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>askRq</span>
<a name="line-335"></a>    <span class='hs-keyword'>if</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-varop'>$</span> <span class='hs-varid'>isSafePath</span> <span class='hs-layout'>(</span><span class='hs-varid'>rqPaths</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-336"></a>       <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>logM</span> <span class='hs-str'>"Happstack.Server.FileServe"</span> <span class='hs-conid'>DEBUG</span> <span class='hs-layout'>(</span><span class='hs-str'>"fileServe: unsafe filepath "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>rqPaths</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-337"></a>               <span class='hs-varid'>mzero</span>
<a name="line-338"></a>       <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>joinPath</span> <span class='hs-layout'>(</span><span class='hs-varid'>localPath</span> <span class='hs-conop'>:</span> <span class='hs-varid'>rqPaths</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span>
<a name="line-339"></a>               <span class='hs-varid'>fe</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>fp</span>
<a name="line-340"></a>               <span class='hs-varid'>de</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>fp</span>
<a name="line-341"></a>               <span class='hs-keyword'>let</span> <span class='hs-varid'>status</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>de</span>   <span class='hs-keyglyph'>=</span> <span class='hs-str'>"DIR"</span>
<a name="line-342"></a>                          <span class='hs-keyglyph'>|</span> <span class='hs-varid'>fe</span>   <span class='hs-keyglyph'>=</span> <span class='hs-str'>"file"</span>
<a name="line-343"></a>                          <span class='hs-keyglyph'>|</span> <span class='hs-conid'>True</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"NOT FOUND"</span>
<a name="line-344"></a>               <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>logM</span> <span class='hs-str'>"Happstack.Server.FileServe"</span> <span class='hs-conid'>DEBUG</span> <span class='hs-layout'>(</span><span class='hs-str'>"fileServe: "</span><span class='hs-varop'>++</span><span class='hs-varid'>show</span> <span class='hs-varid'>fp</span><span class='hs-varop'>++</span><span class='hs-str'>" \t"</span><span class='hs-varop'>++</span><span class='hs-varid'>status</span><span class='hs-layout'>)</span>
<a name="line-345"></a>               <span class='hs-keyword'>if</span> <span class='hs-varid'>de</span>
<a name="line-346"></a>                  <span class='hs-keyword'>then</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>last</span> <span class='hs-layout'>(</span><span class='hs-varid'>rqUri</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span> <span class='hs-varop'>==</span> <span class='hs-chr'>'/'</span>
<a name="line-347"></a>                          <span class='hs-keyword'>then</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>fp</span>
<a name="line-348"></a>                          <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>path'</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addTrailingPathSeparator</span> <span class='hs-layout'>(</span><span class='hs-varid'>rqUri</span> <span class='hs-varid'>rq</span><span class='hs-layout'>)</span>
<a name="line-349"></a>                                  <span class='hs-varid'>seeOther</span> <span class='hs-varid'>path'</span> <span class='hs-layout'>(</span><span class='hs-varid'>toResponse</span> <span class='hs-varid'>path'</span><span class='hs-layout'>)</span>
<a name="line-350"></a>                  <span class='hs-keyword'>else</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>fe</span> 
<a name="line-351"></a>                          <span class='hs-keyword'>then</span> <span class='hs-varid'>serveFileUsing</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>fp</span>
<a name="line-352"></a>                          <span class='hs-keyword'>else</span> <span class='hs-varid'>mzero</span>
<a name="line-353"></a>
<a name="line-354"></a><a name="isSafePath"></a><span class='hs-definition'>isSafePath</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'>-&gt;</span> <span class='hs-conid'>Bool</span>
<a name="line-355"></a><span class='hs-definition'>isSafePath</span> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-356"></a><span class='hs-definition'>isSafePath</span> <span class='hs-layout'>(</span><span class='hs-varid'>s</span><span class='hs-conop'>:</span><span class='hs-varid'>ss</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-357"></a>     <span class='hs-varid'>isValid</span> <span class='hs-varid'>s</span> 
<a name="line-358"></a>  <span class='hs-varop'>&amp;&amp;</span> <span class='hs-layout'>(</span><span class='hs-varid'>all</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>isPathSeparator</span><span class='hs-layout'>)</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span> 
<a name="line-359"></a>  <span class='hs-varop'>&amp;&amp;</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>hasDrive</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span>
<a name="line-360"></a>  <span class='hs-varop'>&amp;&amp;</span> <span class='hs-varid'>not</span> <span class='hs-layout'>(</span><span class='hs-varid'>isParent</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span>
<a name="line-361"></a>  <span class='hs-varop'>&amp;&amp;</span> <span class='hs-varid'>isSafePath</span> <span class='hs-varid'>ss</span>
<a name="line-362"></a>
<a name="line-363"></a><a name="isParent"></a><span class='hs-comment'>-- note: could be different on other OSs</span>
<a name="line-364"></a><span class='hs-definition'>isParent</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>Bool</span>
<a name="line-365"></a><span class='hs-definition'>isParent</span> <span class='hs-str'>".."</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>True</span>
<a name="line-366"></a><span class='hs-definition'>isParent</span> <span class='hs-keyword'>_</span>    <span class='hs-keyglyph'>=</span> <span class='hs-conid'>False</span>
<a name="line-367"></a>
<a name="line-368"></a><a name="fileServe"></a><span class='hs-comment'>-- | Serve files from a directory and its subdirectories using 'sendFile'.</span>
<a name="line-369"></a><span class='hs-comment'>-- </span>
<a name="line-370"></a><span class='hs-comment'>-- Usage:</span>
<a name="line-371"></a><span class='hs-comment'>--</span>
<a name="line-372"></a><span class='hs-comment'>-- &gt; fileServe ["index.html"] "path/to/files/on/disk"</span>
<a name="line-373"></a><span class='hs-comment'>--</span>
<a name="line-374"></a><span class='hs-comment'>--  'fileServe' does not support directory browsing. See 'serveDirectory'</span>
<a name="line-375"></a><span class='hs-comment'>--</span>
<a name="line-376"></a><span class='hs-comment'>-- DEPRECATED: use 'serveDirectory' instead.</span>
<a name="line-377"></a><span class='hs-comment'>--</span>
<a name="line-378"></a><span class='hs-comment'>-- Note:</span>
<a name="line-379"></a><span class='hs-comment'>-- </span>
<a name="line-380"></a><span class='hs-comment'>--  The list of index files @[\"index.html\"]@ is only used to determine what file to show if the user requests a directory. You *do not* need to explicitly list all the files you want to serve.</span>
<a name="line-381"></a><span class='hs-comment'>-- </span>
<a name="line-382"></a><span class='hs-definition'>fileServe</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WebMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-383"></a>             <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span>         <span class='hs-comment'>-- ^ index file names, in case the requested path is a directory</span>
<a name="line-384"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>           <span class='hs-comment'>-- ^ file/directory to serve</span>
<a name="line-385"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-386"></a><span class='hs-definition'>fileServe</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> 
<a name="line-387"></a>    <span class='hs-varid'>fileServe'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>localPath</span>
<a name="line-388"></a>        <span class='hs-keyword'>where</span>
<a name="line-389"></a>          <span class='hs-varid'>serveFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filePathSendFile</span>
<a name="line-390"></a>          <span class='hs-varid'>mimeFn</span>     <span class='hs-keyglyph'>=</span> <span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeTypes</span>
<a name="line-391"></a>          <span class='hs-varid'>indexFiles</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>ixFiles</span> <span class='hs-varop'>++</span> <span class='hs-varid'>defaultIxFiles</span><span class='hs-layout'>)</span> 
<a name="line-392"></a>          <span class='hs-varid'>indexFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFiles</span>
<a name="line-393"></a><span class='hs-comment'>--          indexFn    = browseIndex filePathSendFile mimeFn indexFiles</span>
<a name="line-394"></a><span class='hs-comment'>{-# DEPRECATED fileServe "use serveDirectory instead." #-}</span>
<a name="line-395"></a>
<a name="line-396"></a><a name="fileServeLazy"></a><span class='hs-comment'>-- | Serve files from a directory and its subdirectories (lazy ByteString version).</span>
<a name="line-397"></a><span class='hs-comment'>--</span>
<a name="line-398"></a><span class='hs-comment'>-- WARNING: May leak file handles. You should probably use 'fileServe' instead.</span>
<a name="line-399"></a><span class='hs-definition'>fileServeLazy</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WebMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-400"></a>             <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span>         <span class='hs-comment'>-- ^ index file names, in case the requested path is a directory</span>
<a name="line-401"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>           <span class='hs-comment'>-- ^ file/directory to serve</span>
<a name="line-402"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-403"></a><span class='hs-definition'>fileServeLazy</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span>
<a name="line-404"></a>    <span class='hs-varid'>fileServe'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>localPath</span>
<a name="line-405"></a>        <span class='hs-keyword'>where</span>
<a name="line-406"></a>          <span class='hs-varid'>serveFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filePathLazy</span>
<a name="line-407"></a>          <span class='hs-varid'>mimeFn</span>     <span class='hs-keyglyph'>=</span> <span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeTypes</span>
<a name="line-408"></a>          <span class='hs-varid'>indexFiles</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>ixFiles</span> <span class='hs-varop'>++</span> <span class='hs-varid'>defaultIxFiles</span><span class='hs-layout'>)</span> 
<a name="line-409"></a>          <span class='hs-varid'>indexFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFiles</span>
<a name="line-410"></a>
<a name="line-411"></a><a name="fileServeStrict"></a><span class='hs-comment'>-- | Serve files from a directory and its subdirectories (strict ByteString version). </span>
<a name="line-412"></a><span class='hs-comment'>--</span>
<a name="line-413"></a><span class='hs-comment'>-- WARNING: the entire file will be read into RAM before being served. You should probably use 'fileServe' instead.</span>
<a name="line-414"></a><span class='hs-definition'>fileServeStrict</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WebMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-415"></a>             <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span>         <span class='hs-comment'>-- ^ index file names, in case the next argument is a directory</span>
<a name="line-416"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>           <span class='hs-comment'>-- ^ file/directory to serve</span>
<a name="line-417"></a>          <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-418"></a><span class='hs-definition'>fileServeStrict</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span>
<a name="line-419"></a>    <span class='hs-varid'>fileServe'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>localPath</span>
<a name="line-420"></a>        <span class='hs-keyword'>where</span>
<a name="line-421"></a>          <span class='hs-varid'>serveFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filePathStrict</span>
<a name="line-422"></a>          <span class='hs-varid'>mimeFn</span>     <span class='hs-keyglyph'>=</span> <span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeTypes</span>
<a name="line-423"></a>          <span class='hs-varid'>indexFiles</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>ixFiles</span> <span class='hs-varop'>++</span> <span class='hs-varid'>defaultIxFiles</span><span class='hs-layout'>)</span> 
<a name="line-424"></a>          <span class='hs-varid'>indexFn</span>    <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFiles</span>
<a name="line-425"></a>
<a name="line-426"></a><span class='hs-comment'>-- * Index</span>
<a name="line-427"></a>
<a name="line-428"></a><a name="doIndex"></a><span class='hs-comment'>-- | attempt to serve index files </span>
<a name="line-429"></a><span class='hs-definition'>doIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-430"></a>        <span class='hs-keyglyph'>=&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ list of possible index files (e.g., @index.html@)</span>
<a name="line-431"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>MimeMap</span>    <span class='hs-comment'>-- ^ see also 'mimeTypes'</span>
<a name="line-432"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>   <span class='hs-comment'>-- ^ directory on disk to search for index files</span>
<a name="line-433"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-434"></a><span class='hs-definition'>doIndex</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-layout'>(</span><span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeMap</span><span class='hs-layout'>)</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span>
<a name="line-435"></a>
<a name="line-436"></a><a name="doIndexLazy"></a><span class='hs-definition'>doIndexLazy</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-437"></a>        <span class='hs-keyglyph'>=&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span>
<a name="line-438"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>MimeMap</span>
<a name="line-439"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>
<a name="line-440"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-441"></a><span class='hs-definition'>doIndexLazy</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathLazy</span> <span class='hs-layout'>(</span><span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeMap</span><span class='hs-layout'>)</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span>
<a name="line-442"></a>
<a name="line-443"></a><a name="doIndexStrict"></a><span class='hs-definition'>doIndexStrict</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-444"></a>        <span class='hs-keyglyph'>=&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span>
<a name="line-445"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>MimeMap</span>
<a name="line-446"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>
<a name="line-447"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-448"></a><span class='hs-definition'>doIndexStrict</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>mimeMap</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>doIndex'</span> <span class='hs-varid'>filePathStrict</span> <span class='hs-layout'>(</span><span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeMap</span><span class='hs-layout'>)</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span>
<a name="line-449"></a>
<a name="line-450"></a><a name="doIndex'"></a><span class='hs-definition'>doIndex'</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-451"></a>        <span class='hs-keyglyph'>=&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span>
<a name="line-452"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-453"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span>
<a name="line-454"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>
<a name="line-455"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-456"></a><span class='hs-definition'>doIndex'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-457"></a>    <span class='hs-varid'>msum</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>tryIndex</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>fp</span>
<a name="line-458"></a>         <span class='hs-layout'>,</span> <span class='hs-varid'>forbidden</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toResponse</span> <span class='hs-str'>"Directory index forbidden"</span>
<a name="line-459"></a>         <span class='hs-keyglyph'>]</span>
<a name="line-460"></a>
<a name="line-461"></a><a name="tryIndex"></a><span class='hs-comment'>-- | try to find an index file, calls mzero on failure</span>
<a name="line-462"></a><span class='hs-definition'>tryIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span>
<a name="line-463"></a>        <span class='hs-keyglyph'>=&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ usually 'filePathSendFile'</span>
<a name="line-464"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>             <span class='hs-comment'>-- ^ function to calculate mime type, usually 'guessContentTypeM'</span>
<a name="line-465"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span>                           <span class='hs-comment'>-- ^ list of index files. See also 'defaultIxFiles'</span>
<a name="line-466"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>                           <span class='hs-comment'>-- ^ directory to search in</span>
<a name="line-467"></a>        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-468"></a><span class='hs-definition'>tryIndex</span> <span class='hs-sel'>_serveFn</span> <span class='hs-sel'>_mime</span>  <span class='hs-conid'>[]</span>          <span class='hs-sel'>_fp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>mzero</span>
<a name="line-469"></a><span class='hs-definition'>tryIndex</span>  <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-layout'>(</span><span class='hs-varid'>index</span><span class='hs-conop'>:</span><span class='hs-varid'>rest</span><span class='hs-layout'>)</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-470"></a>    <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fp</span> <span class='hs-varop'>&lt;/&gt;</span> <span class='hs-varid'>index</span>
<a name="line-471"></a>       <span class='hs-varid'>fe</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>path</span>
<a name="line-472"></a>       <span class='hs-keyword'>if</span> <span class='hs-varid'>fe</span> 
<a name="line-473"></a>          <span class='hs-keyword'>then</span> <span class='hs-varid'>serveFileUsing</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>path</span> 
<a name="line-474"></a>          <span class='hs-keyword'>else</span> <span class='hs-varid'>tryIndex</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>rest</span> <span class='hs-varid'>fp</span>
<a name="line-475"></a>
<a name="line-476"></a><span class='hs-comment'>-- * Directory Browsing</span>
<a name="line-477"></a>
<a name="line-478"></a><a name="browseIndex"></a><span class='hs-definition'>browseIndex</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>ToMessage</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-479"></a>                <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span>
<a name="line-480"></a>             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>String</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span><span class='hs-layout'>)</span>
<a name="line-481"></a>             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-482"></a>             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span>
<a name="line-483"></a>             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>
<a name="line-484"></a>             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-485"></a><span class='hs-definition'>browseIndex</span> <span class='hs-varid'>renderFn</span> <span class='hs-sel'>_serveFn</span> <span class='hs-sel'>_mimeFn</span> <span class='hs-sel'>_ixFiles</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span>
<a name="line-486"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>c</span>       <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>getDirectoryContents</span> <span class='hs-varid'>localPath</span>
<a name="line-487"></a>       <span class='hs-varid'>listing</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>renderFn</span> <span class='hs-varid'>localPath</span> <span class='hs-varop'>$</span> <span class='hs-varid'>filter</span> <span class='hs-layout'>(</span><span class='hs-varop'>/=</span> <span class='hs-str'>"."</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>sort</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span>
<a name="line-488"></a>       <span class='hs-varid'>ok</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toResponse</span> <span class='hs-varop'>$</span> <span class='hs-varid'>listing</span>
<a name="line-489"></a>
<a name="line-490"></a><a name="EntryKind"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>EntryKind</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>File</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Directory</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnknownKind</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</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'>Data</span><span class='hs-layout'>,</span> <span class='hs-conid'>Typeable</span><span class='hs-layout'>,</span> <span class='hs-conid'>Enum</span><span class='hs-layout'>)</span>
<a name="line-491"></a>
<a name="line-492"></a><a name="renderDirectoryContents"></a><span class='hs-comment'>-- | a function to generate an HTML page showing the contents of a directory on the disk</span>
<a name="line-493"></a><span class='hs-comment'>--</span>
<a name="line-494"></a><span class='hs-comment'>-- see also: 'browseIndex', 'renderDirectoryContentsTable'</span>
<a name="line-495"></a><span class='hs-definition'>renderDirectoryContents</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-496"></a>                           <span class='hs-conid'>FilePath</span>    <span class='hs-comment'>-- ^ path to directory on disk</span>
<a name="line-497"></a>                        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span>  <span class='hs-comment'>-- ^ list of entries in that path</span>
<a name="line-498"></a>                        <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> 
<a name="line-499"></a><span class='hs-definition'>renderDirectoryContents</span> <span class='hs-varid'>localPath</span> <span class='hs-varid'>fps</span> <span class='hs-keyglyph'>=</span>
<a name="line-500"></a>    <span class='hs-keyword'>do</span> <span class='hs-varid'>fps'</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>liftIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-varid'>getMetaData</span> <span class='hs-varid'>localPath</span><span class='hs-layout'>)</span> <span class='hs-varid'>fps</span>
<a name="line-501"></a>       <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>html</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> 
<a name="line-502"></a>         <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>head</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-503"></a>           <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>title</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"Directory Listing"</span>
<a name="line-504"></a>           <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>meta</span>  <span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>httpEquiv</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-str'>"Content-Type"</span><span class='hs-layout'>)</span> <span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>content</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-str'>"text/html;charset=utf-8"</span><span class='hs-layout'>)</span>
<a name="line-505"></a>           <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>style</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-varop'>$</span> <span class='hs-varid'>unlines</span> <span class='hs-keyglyph'>[</span> <span class='hs-str'>"table { margin: 0 auto; width: 760px; border-collapse: collapse; font-family: 'sans-serif'; }"</span>
<a name="line-506"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"table, th, td { border: 1px solid #353948; }"</span> 
<a name="line-507"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"td.size { text-align: right; font-size: 0.7em; width: 50px }"</span>
<a name="line-508"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"td.date { text-align: right; font-size: 0.7em; width: 130px }"</span>
<a name="line-509"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"td { padding-right: 1em; padding-left: 1em; }"</span>
<a name="line-510"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"th.first { background-color: white; width: 24px }"</span>
<a name="line-511"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"td.first { padding-right: 0; padding-left: 0; text-align: center }"</span>
<a name="line-512"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"tr { background-color: white; }"</span>
<a name="line-513"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"tr.alt { background-color: #A3B5BA}"</span>
<a name="line-514"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"th { background-color: #3C4569; color: white; font-size: 1em; }"</span>
<a name="line-515"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"h1 { width: 760px; margin: 1em auto; font-size: 1em }"</span>
<a name="line-516"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"img { width: 20px }"</span>
<a name="line-517"></a>                                        <span class='hs-layout'>,</span> <span class='hs-str'>"a { text-decoration: none }"</span>
<a name="line-518"></a>                                        <span class='hs-keyglyph'>]</span>
<a name="line-519"></a>         <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>body</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-520"></a>           <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>h1</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"Directory Listing"</span>
<a name="line-521"></a>           <span class='hs-varid'>renderDirectoryContentsTable</span> <span class='hs-varid'>fps'</span>
<a name="line-522"></a>
<a name="line-523"></a><a name="renderDirectoryContentsTable"></a><span class='hs-comment'>-- | a function to generate an HTML table showing the contents of a directory on the disk</span>
<a name="line-524"></a><span class='hs-comment'>--</span>
<a name="line-525"></a><span class='hs-comment'>-- This function generates most of the content of the</span>
<a name="line-526"></a><span class='hs-comment'>-- 'renderDirectoryContents' page. If you want to style the page</span>
<a name="line-527"></a><span class='hs-comment'>-- differently, or add google analytics code, etc, you can just create</span>
<a name="line-528"></a><span class='hs-comment'>-- a new page template to wrap around this HTML.</span>
<a name="line-529"></a><span class='hs-comment'>--</span>
<a name="line-530"></a><span class='hs-comment'>-- see also: 'getMetaData', 'renderDirectoryContents'</span>
<a name="line-531"></a><span class='hs-definition'>renderDirectoryContentsTable</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Integer</span><span class='hs-layout'>,</span> <span class='hs-conid'>EntryKind</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ list of files+meta data, see 'getMetaData'</span>
<a name="line-532"></a>                             <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span>
<a name="line-533"></a><span class='hs-definition'>renderDirectoryContentsTable</span> <span class='hs-varid'>fps</span> <span class='hs-keyglyph'>=</span>
<a name="line-534"></a>           <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>table</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>thead</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>th</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>""</span>
<a name="line-535"></a>                                     <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>th</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"Name"</span>
<a name="line-536"></a>                                     <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>th</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"Last modified"</span>
<a name="line-537"></a>                                     <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>th</span> <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"Size"</span>
<a name="line-538"></a>                        <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>tbody</span> <span class='hs-varop'>$</span> <span class='hs-varid'>mapM_</span> <span class='hs-varid'>mkRow</span> <span class='hs-layout'>(</span><span class='hs-varid'>zip</span> <span class='hs-varid'>fps</span> <span class='hs-varop'>$</span> <span class='hs-varid'>cycle</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>False</span><span class='hs-layout'>,</span> <span class='hs-conid'>True</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-539"></a>    <span class='hs-keyword'>where</span>
<a name="line-540"></a>      <span class='hs-varid'>mkRow</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Integer</span><span class='hs-layout'>,</span> <span class='hs-conid'>EntryKind</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span>
<a name="line-541"></a>      <span class='hs-varid'>mkRow</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fp</span><span class='hs-layout'>,</span> <span class='hs-varid'>modTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>count</span><span class='hs-layout'>,</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>alt</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> 
<a name="line-542"></a>          <span class='hs-layout'>(</span><span class='hs-keyword'>if</span> <span class='hs-varid'>alt</span> <span class='hs-keyword'>then</span> <span class='hs-layout'>(</span><span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>class_</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-str'>"alt"</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyword'>else</span> <span class='hs-varid'>id</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-543"></a>          <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>tr</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-544"></a>                   <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>td</span> <span class='hs-layout'>(</span><span class='hs-varid'>mkKind</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span>
<a name="line-545"></a>                   <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>td</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>a</span> <span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>href</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-varid'>fp</span><span class='hs-layout'>)</span>  <span class='hs-varop'>$</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-varid'>fp</span><span class='hs-layout'>)</span>
<a name="line-546"></a>                   <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>td</span> <span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>class_</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-str'>"date"</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-varop'>$</span> <span class='hs-varid'>maybe</span> <span class='hs-str'>"-"</span> <span class='hs-layout'>(</span><span class='hs-varid'>formatCalendarTime</span> <span class='hs-varid'>defaultTimeLocale</span> <span class='hs-str'>"%d-%b-%Y %X %Z"</span><span class='hs-layout'>)</span> <span class='hs-varid'>modTime</span><span class='hs-layout'>)</span>
<a name="line-547"></a>                   <span class='hs-layout'>(</span><span class='hs-varid'>maybe</span> <span class='hs-varid'>id</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>c</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-layout'>(</span><span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>title</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-layout'>(</span><span class='hs-varid'>show</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>count</span><span class='hs-layout'>)</span>  <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>td</span> <span class='hs-varop'>!</span> <span class='hs-conid'>A</span><span class='hs-varop'>.</span><span class='hs-varid'>class_</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toValue</span> <span class='hs-str'>"size"</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-varop'>$</span> <span class='hs-varid'>maybe</span> <span class='hs-str'>"-"</span> <span class='hs-varid'>prettyShow</span> <span class='hs-varid'>count</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> 
<a name="line-548"></a>      <span class='hs-varid'>mkKind</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>EntryKind</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span>
<a name="line-549"></a>      <span class='hs-varid'>mkKind</span> <span class='hs-conid'>File</span>        <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-550"></a>      <span class='hs-varid'>mkKind</span> <span class='hs-conid'>Directory</span>   <span class='hs-keyglyph'>=</span> <span class='hs-conid'>H</span><span class='hs-varop'>.</span><span class='hs-varid'>toHtml</span> <span class='hs-str'>"➦"</span>
<a name="line-551"></a>      <span class='hs-varid'>mkKind</span> <span class='hs-conid'>UnknownKind</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-552"></a>      <span class='hs-varid'>prettyShow</span> <span class='hs-varid'>x</span>
<a name="line-553"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>&gt;</span> <span class='hs-num'>1024</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>prettyShowK</span> <span class='hs-varop'>$</span> <span class='hs-varid'>x</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>1024</span>
<a name="line-554"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addCommas</span> <span class='hs-str'>"B"</span> <span class='hs-varid'>x</span>
<a name="line-555"></a>      <span class='hs-varid'>prettyShowK</span> <span class='hs-varid'>x</span>
<a name="line-556"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>&gt;</span> <span class='hs-num'>1024</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>prettyShowM</span> <span class='hs-varop'>$</span> <span class='hs-varid'>x</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>1024</span>
<a name="line-557"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addCommas</span> <span class='hs-str'>"KB"</span> <span class='hs-varid'>x</span>
<a name="line-558"></a>      <span class='hs-varid'>prettyShowM</span> <span class='hs-varid'>x</span>
<a name="line-559"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>x</span> <span class='hs-varop'>&gt;</span> <span class='hs-num'>1024</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>prettyShowG</span> <span class='hs-varop'>$</span> <span class='hs-varid'>x</span> <span class='hs-varop'>`div`</span> <span class='hs-num'>1024</span>
<a name="line-560"></a>        <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addCommas</span> <span class='hs-str'>"MB"</span> <span class='hs-varid'>x</span>
<a name="line-561"></a>      <span class='hs-varid'>prettyShowG</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>addCommas</span> <span class='hs-str'>"GB"</span> <span class='hs-varid'>x</span>
<a name="line-562"></a>      <span class='hs-varid'>addCommas</span> <span class='hs-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varop'>++</span> <span class='hs-layout'>(</span><span class='hs-chr'>' '</span> <span class='hs-conop'>:</span> <span class='hs-varid'>s</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span> <span class='hs-varid'>reverse</span> <span class='hs-varop'>.</span> <span class='hs-varid'>addCommas'</span> <span class='hs-varop'>.</span> <span class='hs-varid'>reverse</span> <span class='hs-varop'>.</span> <span class='hs-varid'>show</span>
<a name="line-563"></a>      <span class='hs-varid'>addCommas'</span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span><span class='hs-conop'>:</span><span class='hs-varid'>b</span><span class='hs-conop'>:</span><span class='hs-varid'>c</span><span class='hs-conop'>:</span><span class='hs-varid'>d</span><span class='hs-conop'>:</span><span class='hs-varid'>e</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>a</span> <span class='hs-conop'>:</span> <span class='hs-varid'>b</span> <span class='hs-conop'>:</span> <span class='hs-varid'>c</span> <span class='hs-conop'>:</span> <span class='hs-chr'>','</span> <span class='hs-conop'>:</span> <span class='hs-varid'>addCommas'</span> <span class='hs-layout'>(</span><span class='hs-varid'>d</span> <span class='hs-conop'>:</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span>
<a name="line-564"></a>      <span class='hs-varid'>addCommas'</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span>
<a name="line-565"></a>
<a name="line-566"></a>
<a name="line-567"></a><a name="getMetaData"></a><span class='hs-comment'>-- | look up the meta data associated with a file</span>
<a name="line-568"></a><span class='hs-definition'>getMetaData</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ path to directory on disk containing the entry</span>
<a name="line-569"></a>            <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span> <span class='hs-comment'>-- ^ entry in that directory</span>
<a name="line-570"></a>            <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilePath</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>CalendarTime</span><span class='hs-layout'>,</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Integer</span><span class='hs-layout'>,</span> <span class='hs-conid'>EntryKind</span><span class='hs-layout'>)</span>
<a name="line-571"></a><span class='hs-definition'>getMetaData</span> <span class='hs-varid'>localPath</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-572"></a>     <span class='hs-keyword'>do</span> <span class='hs-keyword'>let</span> <span class='hs-varid'>localFp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>localPath</span> <span class='hs-varop'>&lt;/&gt;</span> <span class='hs-varid'>fp</span>
<a name="line-573"></a>        <span class='hs-varid'>modTime</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-layout'>(</span><span class='hs-varid'>fmap</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toCalendarTime</span> <span class='hs-varop'>=&lt;&lt;</span> <span class='hs-varid'>getModificationTime</span> <span class='hs-varid'>localFp</span><span class='hs-layout'>)</span> <span class='hs-varop'>`catch`</span> 
<a name="line-574"></a>                   <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-keyword'>_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IOException</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span>
<a name="line-575"></a>        <span class='hs-varid'>count</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>de</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>localFp</span>
<a name="line-576"></a>                    <span class='hs-keyword'>if</span> <span class='hs-varid'>de</span>
<a name="line-577"></a>                      <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span>
<a name="line-578"></a>                      <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>bracket</span> <span class='hs-layout'>(</span><span class='hs-varid'>openBinaryFile</span> <span class='hs-varid'>localFp</span> <span class='hs-conid'>ReadMode</span><span class='hs-layout'>)</span> <span class='hs-varid'>hClose</span> <span class='hs-layout'>(</span><span class='hs-varid'>fmap</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>.</span> <span class='hs-varid'>hFileSize</span><span class='hs-layout'>)</span> 
<a name="line-579"></a>                                          <span class='hs-varop'>`catch`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-sel'>_e</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IOException</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>)</span>
<a name="line-580"></a>        <span class='hs-varid'>kind</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>fe</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>doesFileExist</span> <span class='hs-varid'>localFp</span>
<a name="line-581"></a>                   <span class='hs-keyword'>if</span> <span class='hs-varid'>fe</span>
<a name="line-582"></a>                      <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>File</span>
<a name="line-583"></a>                      <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>de</span> <span class='hs-keyglyph'>&lt;-</span> <span class='hs-varid'>doesDirectoryExist</span> <span class='hs-varid'>localFp</span>
<a name="line-584"></a>                              <span class='hs-keyword'>if</span> <span class='hs-varid'>de</span> 
<a name="line-585"></a>                                 <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Directory</span>
<a name="line-586"></a>                                 <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-conid'>UnknownKind</span>
<a name="line-587"></a>        <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fp</span><span class='hs-layout'>,</span> <span class='hs-varid'>modTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>count</span><span class='hs-layout'>,</span> <span class='hs-varid'>kind</span><span class='hs-layout'>)</span>
<a name="line-588"></a>
<a name="line-589"></a><a name="Browsing"></a><span class='hs-comment'>-- | see 'serveDirectory'</span>
<a name="line-590"></a><a name="Browsing"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Browsing</span> 
<a name="line-591"></a>    <span class='hs-keyglyph'>=</span> <span class='hs-conid'>EnableBrowsing</span> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>DisableBrowsing</span> 
<a name="line-592"></a>      <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Enum</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</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'>Data</span><span class='hs-layout'>,</span> <span class='hs-conid'>Typeable</span><span class='hs-layout'>)</span>
<a name="line-593"></a>
<a name="line-594"></a><a name="serveDirectory"></a><span class='hs-comment'>-- | Serve files and directories from a directory and its subdirectories using 'sendFile'.</span>
<a name="line-595"></a><span class='hs-comment'>-- </span>
<a name="line-596"></a><span class='hs-comment'>-- Usage:</span>
<a name="line-597"></a><span class='hs-comment'>--</span>
<a name="line-598"></a><span class='hs-comment'>-- &gt; serveDirectory EnableBrowsing ["index.html"] "path/to/files/on/disk"</span>
<a name="line-599"></a><span class='hs-comment'>--</span>
<a name="line-600"></a><span class='hs-comment'>-- If the requested path does not match a file or directory on the</span>
<a name="line-601"></a><span class='hs-comment'>-- disk, then 'serveDirectory' calls 'mzero'.</span>
<a name="line-602"></a><span class='hs-comment'>--</span>
<a name="line-603"></a><span class='hs-comment'>-- If the requested path is a file then the file is served normally. </span>
<a name="line-604"></a><span class='hs-comment'>--</span>
<a name="line-605"></a><span class='hs-comment'>-- If the requested path is a directory, then the result depends on</span>
<a name="line-606"></a><span class='hs-comment'>-- what the first two arguments to the function are.</span>
<a name="line-607"></a><span class='hs-comment'>--</span>
<a name="line-608"></a><span class='hs-comment'>-- The first argument controls whether directory browsing is</span>
<a name="line-609"></a><span class='hs-comment'>-- enabled.</span>
<a name="line-610"></a><span class='hs-comment'>--</span>
<a name="line-611"></a><span class='hs-comment'>-- The second argument is a list of index files (such as</span>
<a name="line-612"></a><span class='hs-comment'>-- index.html).</span>
<a name="line-613"></a><span class='hs-comment'>--</span>
<a name="line-614"></a><span class='hs-comment'>-- When a directory is requested, 'serveDirectory' will first try to</span>
<a name="line-615"></a><span class='hs-comment'>-- find one of the index files (in the order they are listed). If that</span>
<a name="line-616"></a><span class='hs-comment'>-- fails, it will show a directory listing if 'EnableBrowsing' is set,</span>
<a name="line-617"></a><span class='hs-comment'>-- otherwise it will return @forbidden \"Directory index forbidden\"@.</span>
<a name="line-618"></a><span class='hs-comment'>-- </span>
<a name="line-619"></a><span class='hs-comment'>-- Here is an explicit list of all the possible outcomes when the</span>
<a name="line-620"></a><span class='hs-comment'>-- argument is a (valid) directory:</span>
<a name="line-621"></a><span class='hs-comment'>--</span>
<a name="line-622"></a><span class='hs-comment'>-- [@'DisableBrowsing', empty index file list@]</span>
<a name="line-623"></a><span class='hs-comment'>--</span>
<a name="line-624"></a><span class='hs-comment'>--  This will always return, forbidden \"Directory index forbidden\"</span>
<a name="line-625"></a><span class='hs-comment'>--</span>
<a name="line-626"></a><span class='hs-comment'>-- [@'DisableBrowsing', non-empty index file list@]</span>
<a name="line-627"></a><span class='hs-comment'>--</span>
<a name="line-628"></a><span class='hs-comment'>-- 1. If an index file is found it will be shown.</span>
<a name="line-629"></a><span class='hs-comment'>--</span>
<a name="line-630"></a><span class='hs-comment'>-- 2. Otherwise returns, forbidden \"Directory index forbidden\"</span>
<a name="line-631"></a><span class='hs-comment'>--</span>
<a name="line-632"></a><span class='hs-comment'>-- [@'EnableBrowsing', empty index file list@] </span>
<a name="line-633"></a><span class='hs-comment'>--</span>
<a name="line-634"></a><span class='hs-comment'>-- Always shows a directory index.</span>
<a name="line-635"></a><span class='hs-comment'>--</span>
<a name="line-636"></a><span class='hs-comment'>-- [@'EnableBrowsing', non-empty index file list@]</span>
<a name="line-637"></a><span class='hs-comment'>--</span>
<a name="line-638"></a><span class='hs-comment'>-- 1. If an index file is found it will be shown</span>
<a name="line-639"></a><span class='hs-comment'>--</span>
<a name="line-640"></a><span class='hs-comment'>-- 2. Otherwise shows a directory index</span>
<a name="line-641"></a><span class='hs-comment'>--</span>
<a name="line-642"></a><span class='hs-comment'>-- see also: 'defaultIxFiles', 'serveFile'</span>
<a name="line-643"></a><span class='hs-definition'>serveDirectory</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>WebMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>ServerMonad</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadIO</span> <span class='hs-varid'>m</span><span class='hs-layout'>,</span> <span class='hs-conid'>MonadPlus</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=&gt;</span>
<a name="line-644"></a>                  <span class='hs-conid'>Browsing</span>    <span class='hs-comment'>-- ^ allow directory browsing</span>
<a name="line-645"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>FilePath</span><span class='hs-keyglyph'>]</span>  <span class='hs-comment'>-- ^ index file names, in case the requested path is a directory</span>
<a name="line-646"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-conid'>FilePath</span>    <span class='hs-comment'>-- ^ file/directory to serve</span>
<a name="line-647"></a>               <span class='hs-keyglyph'>-&gt;</span> <span class='hs-varid'>m</span> <span class='hs-conid'>Response</span>
<a name="line-648"></a><span class='hs-definition'>serveDirectory</span> <span class='hs-varid'>browsing</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>localPath</span> <span class='hs-keyglyph'>=</span> 
<a name="line-649"></a>    <span class='hs-varid'>fileServe'</span> <span class='hs-varid'>serveFn</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>indexFn</span> <span class='hs-varid'>localPath</span>
<a name="line-650"></a>        <span class='hs-keyword'>where</span>
<a name="line-651"></a>          <span class='hs-varid'>serveFn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>filePathSendFile</span>
<a name="line-652"></a>          <span class='hs-varid'>mimeFn</span>  <span class='hs-keyglyph'>=</span> <span class='hs-varid'>guessContentTypeM</span> <span class='hs-varid'>mimeTypes</span>
<a name="line-653"></a>          <span class='hs-varid'>indexFn</span> <span class='hs-varid'>fp</span> <span class='hs-keyglyph'>=</span>
<a name="line-654"></a>              <span class='hs-varid'>msum</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>tryIndex</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>fp</span>
<a name="line-655"></a>                   <span class='hs-layout'>,</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>browsing</span> <span class='hs-varop'>==</span> <span class='hs-conid'>EnableBrowsing</span>
<a name="line-656"></a>                        <span class='hs-keyword'>then</span> <span class='hs-varid'>browseIndex</span> <span class='hs-varid'>renderDirectoryContents</span> <span class='hs-varid'>filePathSendFile</span> <span class='hs-varid'>mimeFn</span> <span class='hs-varid'>ixFiles</span> <span class='hs-varid'>fp</span>
<a name="line-657"></a>                        <span class='hs-keyword'>else</span> <span class='hs-varid'>forbidden</span> <span class='hs-varop'>$</span> <span class='hs-varid'>toResponse</span> <span class='hs-str'>"Directory index forbidden"</span>
<a name="line-658"></a>                   <span class='hs-keyglyph'>]</span>
<a name="line-659"></a>
<a name="line-660"></a><a name="mimeTypes"></a><span class='hs-comment'>-- | Ready collection of common mime types.</span>
<a name="line-661"></a><span class='hs-comment'>-- Except for the first two entries, the mappings come from an Ubuntu 8.04 \/etc\/mime.types file.</span>
<a name="line-662"></a><span class='hs-definition'>mimeTypes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>MimeMap</span>
<a name="line-663"></a><span class='hs-definition'>mimeTypes</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Map</span><span class='hs-varop'>.</span><span class='hs-varid'>fromList</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-str'>"gz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-gzip"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cabal"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cabal"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"%"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-trash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"323"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/h323"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"3gp"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/3gpp"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"7z"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-7z-compressed"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"abw"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-abiword"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ai"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/postscript"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"aif"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-aiff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"aifc"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-aiff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"aiff"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-aiff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"alc"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-alchemy"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"art"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-jg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"asc"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/plain"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"asf"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-asf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"asn"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ncbi-asn1"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"aso"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ncbi-asn1-binary"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"asx"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-asf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"atom"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/atom"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"atomcat"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/atomcat+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"atomsrv"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/atomserv+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"au"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/basic"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"avi"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-msvideo"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"b"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-molconn-Z"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bak"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-trash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bat"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-msdos-program"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bcpio"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-bcpio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bib"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-bibtex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bin"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/octet-stream"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bmp"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-ms-bmp"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"boo"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-boo"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"book"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"bsd"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-crossfire"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"c"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-csrc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"c++"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++src"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"c3d"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-chem3d"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cab"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cab"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cac"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cache"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cache"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cache"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cap"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/cap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cascii"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cactvs-binary"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cat"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-pki.seccat"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cbin"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cactvs-binary"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cbr"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cbr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cbz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cbz"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cc"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++src"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cdf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cdr"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-coreldraw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cdt"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-coreldrawtemplate"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cdx"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cdx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cdy"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.cinderella"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cef"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cxf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cer"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cerius"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"chm"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-chemdraw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"chrt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kchart"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cif"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cif"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"class"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/java-vm"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cls"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-tex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cmdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cmdf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cml"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cod"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.rim.cod"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"com"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-msdos-program"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cpa"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-compass"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cpio"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cpio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cpp"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++src"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cpt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/mac-compactpro"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"crl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-pkcs7-crl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"crt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-x509-ca-cert"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"csf"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cache-csf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"csh"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-csh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"csm"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-csml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"csml"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-csml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"css"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/css"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"csv"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/csv"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ctab"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cactvs-binary"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ctx"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ctx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cu"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/cu-seeme"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cub"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-cube"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cxf"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-cxf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"cxx"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++src"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"d"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-dsrc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dat"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dcr"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-director"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"deb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-debian-package"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dif"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/dv"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"diff"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-diff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dir"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-director"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"djv"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/vnd.djvu"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"djvu"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/vnd.djvu"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dl"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/dl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dll"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-msdos-program"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dmg"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-apple-diskimage"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dms"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-dms"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"doc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/msword"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dot"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/msword"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dv"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/dv"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dvi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-dvi"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dx"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-jcamp-dx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"dxr"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-director"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"emb"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-embl-dl-nucleotide"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"embl"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-embl-dl-nucleotide"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"eml"</span><span class='hs-layout'>,</span><span class='hs-str'>"message/rfc822"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ent"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ncbi-asn1-ascii"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"eps"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/postscript"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"etx"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-setext"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"exe"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-msdos-program"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ez"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/andrew-inset"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fbdoc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fch"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-checkpoint"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fchk"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-checkpoint"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fig"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-xfig"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"flac"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-flac"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fli"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/fli"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"fm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"frame"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"frm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gal"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-log"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gam"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gamess-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gamin"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gamess-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gau"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gcd"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-pcs-gcd"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gcf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-graphing-calculator"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gcg"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gcg8-sequence"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gen"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-genbank"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-tex-gf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gif"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/gif"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gjc"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gjf"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gaussian-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gl"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/gl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gnumeric"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-gnumeric"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gpt"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-graph"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gsf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-font"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gsm"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-gsm"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"gtar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-gtar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"h"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-chdr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"h++"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++hdr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-hdf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hh"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++hdr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hin"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-hin"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hpp"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++hdr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hqx"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/mac-binhex40"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hs"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-haskell"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hta"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/hta"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"htc"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-component"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"htm"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/html"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"html"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/html"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"hxx"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-c++hdr"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ica"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-ica"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ice"</span><span class='hs-layout'>,</span><span class='hs-str'>"x-conference/x-cooltalk"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ico"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-icon"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ics"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/calendar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"icz"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/calendar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ief"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/ief"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"iges"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/iges"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"igs"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/iges"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"iii"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-iphone"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"inp"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-gamess-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ins"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-internet-signup"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"iso"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-iso9660-image"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"isp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-internet-signup"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ist"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-isostar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"istr"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-isostar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jad"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/vnd.sun.j2me.app-descriptor"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/java-archive"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"java"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-java"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jdx"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-jcamp-dx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jmz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-jmol"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jng"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-jng"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jnlp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-java-jnlp-file"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jpe"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/jpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jpeg"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/jpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"jpg"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/jpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"js"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-javascript"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kar"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/midi"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"key"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/pgp-keys"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kil"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-killustrator"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kin"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-kinemage"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.google-earth.kml+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kmz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.google-earth.kmz"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kpr"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kpresenter"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kpt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kpresenter"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ksp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kspread"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kwd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kword"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"kwt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-kword"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"latex"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-latex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lha"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-lha"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lhs"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-literate-haskell"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lsf"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-la-asf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lsx"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-la-asf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ltx"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-tex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lyx"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-lyx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lzh"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-lzh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"lzx"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-lzx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"m3u"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpegurl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"m4a"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"maker"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-maker"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"man"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff-man"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mcif"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mmcif"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mcm"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-macmolecule"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mdb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/msaccess"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"me"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff-me"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mesh"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/mesh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mid"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/midi"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"midi"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/midi"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mif"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-mif"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-freemind"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mmd"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-macromodel-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mmf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.smaf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mml"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/mathml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mmod"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-macromodel-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mng"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-mng"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"moc"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-moc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mol"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mdl-molfile"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mol2"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mol2"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"moo"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-out"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mop"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mopcrt"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mov"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/quicktime"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"movie"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-sgi-movie"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mp2"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mp3"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mp4"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/mp4"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpc"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpe"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpeg"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpega"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpg"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mpga"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/mpeg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ms"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff-ms"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"msh"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/mesh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"msi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-msi"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mvb"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-vib"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"mxu"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/vnd.mpegurl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"nb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/mathematica"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"nc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-netcdf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"nwc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-nwc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"o"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-object"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"oda"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/oda"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.database"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.chart"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.formula"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odg"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.graphics"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.image"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.text-master"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.presentation"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ods"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.spreadsheet"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"odt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.text"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"oga"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/ogg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ogg"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/ogg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ogv"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/ogg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ogx"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/ogg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"old"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-trash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"otg"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.graphics-template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"oth"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.text-web"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"otp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.presentation-template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ots"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.spreadsheet-template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ott"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.oasis.opendocument.text-template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"oza"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-oz-application"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"p"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-pascal"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"p7r"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-pkcs7-certreqresp"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pac"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-ns-proxy-autoconfig"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pas"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-pascal"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pat"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-coreldrawpattern"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"patch"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-diff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pbm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-portable-bitmap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pcap"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/cap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pcf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-font"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pcf.Z"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-font"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pcx"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/pcx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pdb"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-pdb"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/pdf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pfa"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-font"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pfb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-font"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pgm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-portable-graymap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pgn"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-chess-pgn"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pgp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/pgp-signature"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"php"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"php3"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php3"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"php3p"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php3-preprocessed"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"php4"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php4"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"phps"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php-source"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pht"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"phtml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-php"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pk"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-tex-pk"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pl"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-perl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pls"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-scpls"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pm"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-perl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"png"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/png"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pnm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-portable-anymap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pot"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/plain"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ppm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-portable-pixmap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pps"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-powerpoint"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ppt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-powerpoint"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"prf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/pics-rules"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"prt"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ncbi-asn1-ascii"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ps"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/postscript"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"psd"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-photoshop"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"py"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-python"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pyc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-python-code"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"pyo"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-python-code"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"qt"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/quicktime"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"qtl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-quicktimeplayer"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ra"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-pn-realaudio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ram"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-pn-realaudio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/rar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ras"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-cmu-raster"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rd"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mdl-rdfile"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/rdf+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rgb"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-rgb"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rhtml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-httpd-eruby"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rm"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-pn-realaudio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"roff"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ros"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-rosdal"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rpm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-redhat-package-manager"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rss"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/rss+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rtf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/rtf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rtx"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/richtext"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"rxn"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mdl-rxnfile"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sct"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/scriptlet"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sd"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mdl-sdfile"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sd2"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-sd2"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sda"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.draw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sdc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.calc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sdd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.impress"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sdf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.math"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sds"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.chart"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sdw"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.writer"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ser"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/java-serialized-object"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sgf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-go-sgf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sgl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.stardivision.writer-global"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sh"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-sh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"shar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-shar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"shtml"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/html"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sid"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/prs.sid"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sik"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-trash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"silo"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/mesh"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sis"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.symbian.install"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sisx"</span><span class='hs-layout'>,</span><span class='hs-str'>"x-epoc/x-sisx-app"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sit"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-stuffit"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sitx"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-stuffit"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"skd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-koan"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"skm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-koan"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"skp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-koan"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"skt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-koan"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"smi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/smil"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"smil"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/smil"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"snd"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/basic"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"spc"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-galactic-spc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"spl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/futuresplash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"spx"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/ogg"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"src"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-wais-source"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"stc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.calc.template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"std"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.draw.template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sti"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.impress.template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"stl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-pki.stl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"stw"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.writer.template"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sty"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-tex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sv4cpio"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-sv4cpio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sv4crc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-sv4crc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"svg"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/svg+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"svgz"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/svg+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sw"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-swissprot"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"swf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-shockwave-flash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"swfl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-shockwave-flash"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.calc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.draw"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxg"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.writer.global"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.impress"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxm"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.math"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"sxw"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.sun.xml.writer"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"t"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-tar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"taz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-gtar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tcl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-tcl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tex"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-tex"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"texi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-texinfo"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"texinfo"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-texinfo"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"text"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/plain"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tgf"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mdl-tgf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tgz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-gtar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tif"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/tiff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tiff"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/tiff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tk"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-tcl"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tm"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/texmacs"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"torrent"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-bittorrent"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tr"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-troff"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ts"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/texmacs"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tsp"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/dsptype"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"tsv"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/tab-separated-values"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"txt"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/plain"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"udeb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-debian-package"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"uls"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/iuls"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"ustar"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-ustar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"val"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-ncbi-asn1-binary"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vcd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-cdlink"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vcf"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-vcard"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vcs"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/x-vcalendar"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vmd"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-vmd"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vms"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-vamas-iso14976"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vrm"</span><span class='hs-layout'>,</span><span class='hs-str'>"x-world/x-vrml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vrml"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/vrml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"vsd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.visio"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wad"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-doom"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wav"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-wav"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wax"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-ms-wax"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wbmp"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/vnd.wap.wbmp"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wbxml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.wap.wbxml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wk"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-123"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wm"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-wm"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wma"</span><span class='hs-layout'>,</span><span class='hs-str'>"audio/x-ms-wma"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-ms-wmd"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wml"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/vnd.wap.wml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmlc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.wap.wmlc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmls"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/vnd.wap.wmlscript"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmlsc"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.wap.wmlscriptc"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmv"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-wmv"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmx"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-wmx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wmz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-ms-wmz"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wp5"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/wordperfect5.1"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wpd"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/wordperfect"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wrl"</span><span class='hs-layout'>,</span><span class='hs-str'>"model/vrml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wsc"</span><span class='hs-layout'>,</span><span class='hs-str'>"text/scriptlet"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wvx"</span><span class='hs-layout'>,</span><span class='hs-str'>"video/x-ms-wvx"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"wz"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-wingz"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xbm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-xbitmap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xcf"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-xcf"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xht"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/xhtml+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xhtml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/xhtml+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xlb"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-excel"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xls"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-excel"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xlt"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.ms-excel"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xml"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xpi"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-xpinstall"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xpm"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-xpixmap"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xsl"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xtel"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-xtel"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xul"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/vnd.mozilla.xul+xml"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xwd"</span><span class='hs-layout'>,</span><span class='hs-str'>"image/x-xwindowdump"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"xyz"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-xyz"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"zip"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/zip"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"zmt"</span><span class='hs-layout'>,</span><span class='hs-str'>"chemical/x-mopac-input"</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span><span class='hs-layout'>(</span><span class='hs-str'>"~"</span><span class='hs-layout'>,</span><span class='hs-str'>"application/x-trash"</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span>
<a name="line-664"></a>
</pre></body>
</html>

APT Browse - Built by Thomas Orozco.