/usr/share/doc/libghc-happstack-server-doc/html/src/Happstack-Server-Response.html is in libghc-happstack-server-doc 7.1.7-2build7.
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 | <?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/Response.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LANGUAGE FlexibleContexts, FlexibleInstances, TypeSynonymInstances, ScopedTypeVariables #-}</span>
<a name="line-2"></a><span class='hs-comment'>-- | Functions and classes related to generating a 'Response' and setting the response code. For detailed instruction see the Happstack Crash Course: <<a href="http://happstack.com/docs/crashcourse/HelloWorld.html#response_code">http://happstack.com/docs/crashcourse/HelloWorld.html#response_code</a>></span>
<a name="line-3"></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'>Response</span>
<a name="line-4"></a> <span class='hs-layout'>(</span> <span class='hs-comment'>-- * Converting values to a 'Response'</span>
<a name="line-5"></a> <span class='hs-conid'>ToMessage</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span>
<a name="line-6"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>flatten</span>
<a name="line-7"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>toResponseBS</span>
<a name="line-8"></a> <span class='hs-comment'>-- * Setting the Response Code</span>
<a name="line-9"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>ok</span>
<a name="line-10"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>noContent</span>
<a name="line-11"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>internalServerError</span>
<a name="line-12"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>badGateway</span>
<a name="line-13"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>badRequest</span>
<a name="line-14"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>unauthorized</span>
<a name="line-15"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>forbidden</span>
<a name="line-16"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>notFound</span>
<a name="line-17"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>prettyResponse</span>
<a name="line-18"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>requestEntityTooLarge</span>
<a name="line-19"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>seeOther</span>
<a name="line-20"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>found</span>
<a name="line-21"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>movedPermanently</span>
<a name="line-22"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>tempRedirect</span>
<a name="line-23"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>setResponseCode</span>
<a name="line-24"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>resp</span>
<a name="line-25"></a> <span class='hs-comment'>-- * Handling if-modified-since</span>
<a name="line-26"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>ifModifiedSince</span>
<a name="line-27"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-28"></a>
<a name="line-29"></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'>B</span>
<a name="line-30"></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-31"></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'>UTF8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>LU</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromString</span><span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Map</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>M</span>
<a name="line-33"></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'>Text</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>T</span>
<a name="line-34"></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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Encoding</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>T</span>
<a name="line-35"></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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>LT</span>
<a name="line-36"></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'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Lazy</span><span class='hs-varop'>.</span><span class='hs-conid'>Encoding</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>LT</span>
<a name="line-37"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Time</span> <span class='hs-layout'>(</span><span class='hs-conid'>UTCTime</span><span class='hs-layout'>,</span> <span class='hs-varid'>formatTime</span><span class='hs-layout'>)</span>
<a name="line-38"></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'>Internal</span><span class='hs-varop'>.</span><span class='hs-conid'>Monads</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilterMonad</span><span class='hs-layout'>(</span><span class='hs-varid'>composeFilter</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-39"></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'>Response</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>Request</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</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'>getHeader</span><span class='hs-layout'>,</span> <span class='hs-varid'>noContentLength</span><span class='hs-layout'>,</span> <span class='hs-varid'>redirect</span><span class='hs-layout'>,</span> <span class='hs-varid'>result</span><span class='hs-layout'>,</span> <span class='hs-varid'>setHeader</span><span class='hs-layout'>,</span> <span class='hs-varid'>setHeaderBS</span><span class='hs-layout'>)</span>
<a name="line-40"></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'>SURI</span> <span class='hs-layout'>(</span><span class='hs-conid'>ToSURI</span><span class='hs-layout'>)</span>
<a name="line-41"></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-42"></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'>Html</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Blaze</span>
<a name="line-43"></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'>Html</span><span class='hs-varop'>.</span><span class='hs-conid'>Renderer</span><span class='hs-varop'>.</span><span class='hs-conid'>Utf8</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>Blaze</span>
<a name="line-44"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Text</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span><span class='hs-layout'>,</span> <span class='hs-varid'>renderHtml</span><span class='hs-layout'>)</span>
<a name="line-45"></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'>XHtml</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>XHtml</span> <span class='hs-layout'>(</span><span class='hs-conid'>Html</span><span class='hs-layout'>,</span> <span class='hs-varid'>renderHtml</span><span class='hs-layout'>)</span>
<a name="line-46"></a>
<a name="line-47"></a><a name="toResponseBS"></a><span class='hs-comment'>-- | A low-level function to build a 'Response' from a content-type</span>
<a name="line-48"></a><span class='hs-comment'>-- and a 'ByteString'.</span>
<a name="line-49"></a><span class='hs-comment'>--</span>
<a name="line-50"></a><span class='hs-comment'>-- Creates a 'Response' in a manner similar to the 'ToMessage' class,</span>
<a name="line-51"></a><span class='hs-comment'>-- but without requiring an instance declaration.</span>
<a name="line-52"></a><span class='hs-comment'>-- </span>
<a name="line-53"></a><span class='hs-comment'>-- example:</span>
<a name="line-54"></a><span class='hs-comment'>-- </span>
<a name="line-55"></a><span class='hs-comment'>-- > import Data.ByteString.Char8 as C</span>
<a name="line-56"></a><span class='hs-comment'>-- > import Data.ByteString.Lazy.Char8 as L</span>
<a name="line-57"></a><span class='hs-comment'>-- > import Happstack.Server</span>
<a name="line-58"></a><span class='hs-comment'>-- ></span>
<a name="line-59"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ ok $ toResponseBS (C.pack "text/plain") (L.pack "hello, world")</span>
<a name="line-60"></a><span class='hs-comment'>--</span>
<a name="line-61"></a><span class='hs-comment'>-- (note: 'C.pack' and 'L.pack' only work for ascii. For unicode strings you would need to use @utf8-string@, @text@, or something similar to create a valid 'ByteString').</span>
<a name="line-62"></a><span class='hs-definition'>toResponseBS</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ content-type</span>
<a name="line-63"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-comment'>-- ^ response body</span>
<a name="line-64"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Response</span>
<a name="line-65"></a><span class='hs-definition'>toResponseBS</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>message</span> <span class='hs-keyglyph'>=</span>
<a name="line-66"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Response</span> <span class='hs-num'>200</span> <span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-varid'>nullRsFlags</span> <span class='hs-varid'>message</span> <span class='hs-conid'>Nothing</span>
<a name="line-67"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>setHeaderBS</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"Content-Type"</span><span class='hs-layout'>)</span> <span class='hs-varid'>contentType</span> <span class='hs-varid'>res</span>
<a name="line-68"></a>
<a name="line-69"></a>
<a name="line-70"></a><a name="ToMessage"></a><span class='hs-comment'>-- | 'toResponse' will convert a value into a 'Response' body,</span>
<a name="line-71"></a><a name="ToMessage"></a><span class='hs-comment'>-- set the @content-type@, and set the default response code for that type.</span>
<a name="line-72"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-73"></a><a name="ToMessage"></a><span class='hs-comment'>-- @happstack-server@ Example:</span>
<a name="line-74"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-75"></a><a name="ToMessage"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ toResponse "hello, world!"</span>
<a name="line-76"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-77"></a><a name="ToMessage"></a><span class='hs-comment'>-- will generate a 'Response' with the content-type @text/plain@,</span>
<a name="line-78"></a><a name="ToMessage"></a><span class='hs-comment'>-- the response code @200 OK@, and the body: @hello, world!@.</span>
<a name="line-79"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-80"></a><a name="ToMessage"></a><span class='hs-comment'>-- 'simpleHTTP' will call 'toResponse' automatically, so the above can be shortened to:</span>
<a name="line-81"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-82"></a><a name="ToMessage"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ "hello, world!"</span>
<a name="line-83"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-84"></a><a name="ToMessage"></a><span class='hs-comment'>-- @happstack-lite@ Example:</span>
<a name="line-85"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-86"></a><a name="ToMessage"></a><span class='hs-comment'>-- > main = serve Nothing $ toResponse "hello, world!"</span>
<a name="line-87"></a><a name="ToMessage"></a><span class='hs-comment'>--</span>
<a name="line-88"></a><a name="ToMessage"></a><span class='hs-comment'>-- Minimal definition: 'toMessage' (and usually 'toContentType'). </span>
<a name="line-89"></a><a name="ToMessage"></a><span class='hs-keyword'>class</span> <span class='hs-conid'>ToMessage</span> <span class='hs-varid'>a</span> <span class='hs-keyword'>where</span>
<a name="line-90"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-91"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/plain"</span>
<a name="line-92"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span>
<a name="line-93"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"Happstack.Server.SimpleHTTP.ToMessage.toMessage: Not defined"</span>
<a name="line-94"></a> <span class='hs-varid'>toResponse</span><span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Response</span>
<a name="line-95"></a> <span class='hs-varid'>toResponse</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span>
<a name="line-96"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toMessage</span> <span class='hs-varid'>val</span>
<a name="line-97"></a> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Response</span> <span class='hs-num'>200</span> <span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-varid'>nullRsFlags</span> <span class='hs-varid'>bs</span> <span class='hs-conid'>Nothing</span>
<a name="line-98"></a> <span class='hs-keyword'>in</span> <span class='hs-varid'>setHeaderBS</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"Content-Type"</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>toContentType</span> <span class='hs-varid'>val</span><span class='hs-layout'>)</span>
<a name="line-99"></a> <span class='hs-varid'>res</span>
<a name="line-100"></a><span class='hs-comment'>{-
<a name="line-101"></a>instance ToMessage [Element] where
<a name="line-102"></a> toContentType _ = B.pack "application/xml; charset=UTF-8"
<a name="line-103"></a> toMessage [el] = LU.fromString $ H.simpleDoc H.NoStyle $ toHaXmlEl el -- !! OPTIMIZE
<a name="line-104"></a> toMessage x = error ("Happstack.Server.SimpleHTTP 'instance ToMessage [Element]' Can't handle " ++ show x)
<a name="line-105"></a>-}</span>
<a name="line-106"></a>
<a name="line-107"></a><a name="instance%20ToMessage%20()"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>()</span> <span class='hs-keyword'>where</span>
<a name="line-108"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/plain"</span>
<a name="line-109"></a> <span class='hs-varid'>toMessage</span> <span class='hs-conid'>()</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span>
<a name="line-110"></a>
<a name="line-111"></a><a name="instance%20ToMessage%20String"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>String</span> <span class='hs-keyword'>where</span>
<a name="line-112"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/plain; charset=UTF-8"</span>
<a name="line-113"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LU</span><span class='hs-varop'>.</span><span class='hs-varid'>fromString</span>
<a name="line-114"></a>
<a name="line-115"></a><a name="instance%20ToMessage%20T.Text"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>T</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-keyword'>where</span>
<a name="line-116"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/plain; charset=UTF-8"</span>
<a name="line-117"></a> <span class='hs-varid'>toMessage</span> <span class='hs-varid'>t</span> <span class='hs-keyglyph'>=</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'>T</span><span class='hs-varop'>.</span><span class='hs-varid'>encodeUtf8</span> <span class='hs-varid'>t</span><span class='hs-keyglyph'>]</span>
<a name="line-118"></a>
<a name="line-119"></a><a name="instance%20ToMessage%20LT.Text"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>LT</span><span class='hs-varop'>.</span><span class='hs-conid'>Text</span> <span class='hs-keyword'>where</span>
<a name="line-120"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/plain; charset=UTF-8"</span>
<a name="line-121"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LT</span><span class='hs-varop'>.</span><span class='hs-varid'>encodeUtf8</span>
<a name="line-122"></a>
<a name="line-123"></a><a name="instance%20ToMessage%20Integer"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>Integer</span> <span class='hs-keyword'>where</span>
<a name="line-124"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toMessage</span> <span class='hs-varop'>.</span> <span class='hs-varid'>show</span>
<a name="line-125"></a>
<a name="line-126"></a><a name="instance%20ToMessage%20(Maybe%20a)"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ToMessage</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-127"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toContentType</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span>
<a name="line-128"></a> <span class='hs-varid'>toMessage</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toMessage</span> <span class='hs-str'>"nothing"</span>
<a name="line-129"></a> <span class='hs-varid'>toMessage</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toMessage</span> <span class='hs-varid'>x</span>
<a name="line-130"></a>
<a name="line-131"></a><a name="instance%20ToMessage%20Html"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>Html</span> <span class='hs-keyword'>where</span>
<a name="line-132"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/html; charset=UTF-8"</span>
<a name="line-133"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LU</span><span class='hs-varop'>.</span><span class='hs-varid'>fromString</span> <span class='hs-varop'>.</span> <span class='hs-varid'>renderHtml</span>
<a name="line-134"></a>
<a name="line-135"></a><a name="instance%20ToMessage%20XHtml.Html"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>XHtml</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-keyword'>where</span>
<a name="line-136"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/html; charset=UTF-8"</span>
<a name="line-137"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LU</span><span class='hs-varop'>.</span><span class='hs-varid'>fromString</span> <span class='hs-varop'>.</span> <span class='hs-conid'>XHtml</span><span class='hs-varop'>.</span><span class='hs-varid'>renderHtml</span>
<a name="line-138"></a>
<a name="line-139"></a><a name="instance%20ToMessage%20Blaze.Html"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-conid'>Html</span> <span class='hs-keyword'>where</span>
<a name="line-140"></a> <span class='hs-varid'>toContentType</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-str'>"text/html; charset=UTF-8"</span>
<a name="line-141"></a> <span class='hs-varid'>toMessage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Blaze</span><span class='hs-varop'>.</span><span class='hs-varid'>renderHtml</span>
<a name="line-142"></a>
<a name="line-143"></a><a name="instance%20ToMessage%20Response"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>Response</span> <span class='hs-keyword'>where</span>
<a name="line-144"></a> <span class='hs-varid'>toResponse</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>id</span>
<a name="line-145"></a>
<a name="line-146"></a><a name="instance%20ToMessage%20L.ByteString"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>where</span>
<a name="line-147"></a> <span class='hs-varid'>toResponse</span> <span class='hs-varid'>bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Response</span> <span class='hs-num'>200</span> <span class='hs-conid'>M</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-varid'>nullRsFlags</span> <span class='hs-varid'>bs</span> <span class='hs-conid'>Nothing</span>
<a name="line-148"></a>
<a name="line-149"></a><a name="instance%20ToMessage%20B.ByteString"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>ToMessage</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>where</span>
<a name="line-150"></a> <span class='hs-varid'>toResponse</span> <span class='hs-varid'>bs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toResponse</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-varid'>bs</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span>
<a name="line-151"></a>
<a name="line-152"></a><span class='hs-comment'>{-
<a name="line-153"></a>
<a name="line-154"></a>-- This instances causes awful error messages. I am removing it and
<a name="line-155"></a>-- seeing if anyone complains. I doubt they will.
<a name="line-156"></a>
<a name="line-157"></a>instance (Xml a)=>ToMessage a where
<a name="line-158"></a> toContentType = toContentType . toXml
<a name="line-159"></a> toMessage = toMessage . toPublicXml
<a name="line-160"></a>-}</span>
<a name="line-161"></a>
<a name="line-162"></a><span class='hs-comment'>-- toMessageM = toMessageM . toPublicXml</span>
<a name="line-163"></a>
<a name="line-164"></a><a name="flatten"></a><span class='hs-comment'>-- | alias for: @fmap toResponse@</span>
<a name="line-165"></a><span class='hs-comment'>--</span>
<a name="line-166"></a><span class='hs-comment'>-- turns @m a@ into @m 'Response'@ using 'toResponse'.</span>
<a name="line-167"></a><span class='hs-comment'>--</span>
<a name="line-168"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ flatten $ do return "flatten me."</span>
<a name="line-169"></a><span class='hs-definition'>flatten</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>ToMessage</span> <span class='hs-varid'>a</span><span class='hs-layout'>,</span> <span class='hs-conid'>Functor</span> <span class='hs-varid'>f</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>f</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>f</span> <span class='hs-conid'>Response</span>
<a name="line-170"></a><span class='hs-definition'>flatten</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fmap</span> <span class='hs-varid'>toResponse</span>
<a name="line-171"></a>
<a name="line-172"></a>
<a name="line-173"></a><a name="ifModifiedSince"></a><span class='hs-comment'>-- |Honor an @if-modified-since@ header in a 'Request'.</span>
<a name="line-174"></a><span class='hs-comment'>-- If the 'Request' includes the @if-modified-since@ header and the</span>
<a name="line-175"></a><span class='hs-comment'>-- 'Response' has not been modified, then return 304 (Not Modified),</span>
<a name="line-176"></a><span class='hs-comment'>-- otherwise return the 'Response'.</span>
<a name="line-177"></a><span class='hs-definition'>ifModifiedSince</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>UTCTime</span> <span class='hs-comment'>-- ^ mod-time for the 'Response' (MUST NOT be later than server's time of message origination)</span>
<a name="line-178"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Request</span> <span class='hs-comment'>-- ^ incoming request (used to check for if-modified-since)</span>
<a name="line-179"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Response</span> <span class='hs-comment'>-- ^ Response to send if there are modifications</span>
<a name="line-180"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Response</span>
<a name="line-181"></a><span class='hs-definition'>ifModifiedSince</span> <span class='hs-varid'>modTime</span> <span class='hs-varid'>request</span> <span class='hs-varid'>response</span> <span class='hs-keyglyph'>=</span>
<a name="line-182"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>repr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>formatTime</span> <span class='hs-varid'>defaultTimeLocale</span> <span class='hs-str'>"%a, %d %b %Y %X GMT"</span> <span class='hs-varid'>modTime</span>
<a name="line-183"></a> <span class='hs-varid'>notmodified</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getHeader</span> <span class='hs-str'>"if-modified-since"</span> <span class='hs-varid'>request</span> <span class='hs-varop'>==</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>pack</span> <span class='hs-varop'>$</span> <span class='hs-varid'>repr</span><span class='hs-layout'>)</span>
<a name="line-184"></a> <span class='hs-keyword'>in</span> <span class='hs-keyword'>if</span> <span class='hs-varid'>notmodified</span>
<a name="line-185"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>noContentLength</span> <span class='hs-varop'>$</span> <span class='hs-varid'>result</span> <span class='hs-num'>304</span> <span class='hs-str'>""</span> <span class='hs-comment'>-- Not Modified</span>
<a name="line-186"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>setHeader</span> <span class='hs-str'>"Last-modified"</span> <span class='hs-varid'>repr</span> <span class='hs-varid'>response</span>
<a name="line-187"></a>
<a name="line-188"></a><a name="modifyResponse"></a><span class='hs-comment'>-- | Deprecated: use 'composeFilter'.</span>
<a name="line-189"></a><span class='hs-definition'>modifyResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>FilterMonad</span> <span class='hs-varid'>a</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-layout'>(</span><span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span><span class='hs-conid'>()</span>
<a name="line-190"></a><span class='hs-definition'>modifyResponse</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>composeFilter</span>
<a name="line-191"></a><span class='hs-comment'>{-# DEPRECATED modifyResponse "Use composeFilter" #-}</span>
<a name="line-192"></a>
<a name="line-193"></a><a name="setResponseCode"></a><span class='hs-comment'>-- | Set an arbitrary return code in your response.</span>
<a name="line-194"></a><span class='hs-comment'>--</span>
<a name="line-195"></a><span class='hs-comment'>-- A filter for setting the response code. Generally you will use a</span>
<a name="line-196"></a><span class='hs-comment'>-- helper function like 'ok' or 'seeOther'.</span>
<a name="line-197"></a><span class='hs-comment'>-- </span>
<a name="line-198"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ do setResponseCode 200</span>
<a name="line-199"></a><span class='hs-comment'>-- > return "Everything is OK"</span>
<a name="line-200"></a><span class='hs-comment'>-- </span>
<a name="line-201"></a><span class='hs-comment'>-- see also: 'resp'</span>
<a name="line-202"></a><span class='hs-definition'>setResponseCode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FilterMonad</span> <span class='hs-conid'>Response</span> <span class='hs-varid'>m</span> <span class='hs-keyglyph'>=></span>
<a name="line-203"></a> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ response code</span>
<a name="line-204"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-conid'>()</span>
<a name="line-205"></a><span class='hs-definition'>setResponseCode</span> <span class='hs-varid'>code</span>
<a name="line-206"></a> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>composeFilter</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>r</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>r</span><span class='hs-layout'>{</span><span class='hs-varid'>rsCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>code</span><span class='hs-layout'>}</span>
<a name="line-207"></a>
<a name="line-208"></a><a name="resp"></a><span class='hs-comment'>-- | Same as @'setResponseCode' status >> return val@.</span>
<a name="line-209"></a><span class='hs-comment'>-- </span>
<a name="line-210"></a><span class='hs-comment'>-- Use this if you want to set a response code that does not already</span>
<a name="line-211"></a><span class='hs-comment'>-- have a helper function. </span>
<a name="line-212"></a><span class='hs-comment'>-- </span>
<a name="line-213"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ resp 200 "Everything is OK"</span>
<a name="line-214"></a><span class='hs-definition'>resp</span> <span class='hs-keyglyph'>::</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'>=></span>
<a name="line-215"></a> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ response code</span>
<a name="line-216"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>b</span> <span class='hs-comment'>-- ^ value to return</span>
<a name="line-217"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>b</span>
<a name="line-218"></a><span class='hs-definition'>resp</span> <span class='hs-varid'>status</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>setResponseCode</span> <span class='hs-varid'>status</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-varid'>val</span>
<a name="line-219"></a>
<a name="line-220"></a><a name="ok"></a><span class='hs-comment'>-- | Respond with @200 OK@.</span>
<a name="line-221"></a><span class='hs-comment'>-- </span>
<a name="line-222"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ ok "Everything is OK"</span>
<a name="line-223"></a><span class='hs-definition'>ok</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-224"></a><span class='hs-definition'>ok</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>200</span>
<a name="line-225"></a>
<a name="line-226"></a><a name="noContent"></a><span class='hs-comment'>-- | Respond with @204 No Content@</span>
<a name="line-227"></a><span class='hs-comment'>--</span>
<a name="line-228"></a><span class='hs-comment'>-- A @204 No Content@ response may not contain a message-body. If you try to supply one, it will be dutifully ignored.</span>
<a name="line-229"></a><span class='hs-comment'>--</span>
<a name="line-230"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ noContent "This will be ignored."</span>
<a name="line-231"></a><span class='hs-definition'>noContent</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-232"></a><span class='hs-definition'>noContent</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>composeFilter</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>r</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>noContentLength</span> <span class='hs-layout'>(</span><span class='hs-varid'>r</span> <span class='hs-layout'>{</span> <span class='hs-varid'>rsCode</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>204</span><span class='hs-layout'>,</span> <span class='hs-varid'>rsBody</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>L</span><span class='hs-varop'>.</span><span class='hs-varid'>empty</span> <span class='hs-layout'>}</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>>></span> <span class='hs-varid'>return</span> <span class='hs-varid'>val</span>
<a name="line-233"></a>
<a name="line-234"></a><a name="movedPermanently"></a><span class='hs-comment'>-- | Respond with @301 Moved Permanently@.</span>
<a name="line-235"></a><span class='hs-comment'>--</span>
<a name="line-236"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ movedPermanently "<a href="http://example.org/">http://example.org/</a>" "What you are looking for is now at <a href="http://example.org/">http://example.org/</a>"</span>
<a name="line-237"></a><span class='hs-definition'>movedPermanently</span> <span class='hs-keyglyph'>::</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'>ToSURI</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>res</span>
<a name="line-238"></a><span class='hs-definition'>movedPermanently</span> <span class='hs-varid'>uri</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>modifyResponse</span> <span class='hs-varop'>$</span> <span class='hs-varid'>redirect</span> <span class='hs-num'>301</span> <span class='hs-varid'>uri</span>
<a name="line-239"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-240"></a>
<a name="line-241"></a><a name="found"></a><span class='hs-comment'>-- | Respond with @302 Found@.</span>
<a name="line-242"></a><span class='hs-comment'>-- </span>
<a name="line-243"></a><span class='hs-comment'>-- You probably want 'seeOther'. This method is not in popular use anymore, and is generally treated like 303 by most user-agents anyway.</span>
<a name="line-244"></a><span class='hs-definition'>found</span> <span class='hs-keyglyph'>::</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'>ToSURI</span> <span class='hs-varid'>uri</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>uri</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>res</span>
<a name="line-245"></a><span class='hs-definition'>found</span> <span class='hs-varid'>uri</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>modifyResponse</span> <span class='hs-varop'>$</span> <span class='hs-varid'>redirect</span> <span class='hs-num'>302</span> <span class='hs-varid'>uri</span>
<a name="line-246"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-247"></a>
<a name="line-248"></a><a name="seeOther"></a><span class='hs-comment'>-- | Respond with @303 See Other@.</span>
<a name="line-249"></a><span class='hs-comment'>--</span>
<a name="line-250"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ seeOther "<a href="http://example.org/">http://example.org/</a>" "What you are looking for is now at <a href="http://example.org/">http://example.org/</a>"</span>
<a name="line-251"></a><span class='hs-comment'>--</span>
<a name="line-252"></a><span class='hs-comment'>-- NOTE: The second argument of 'seeOther' is the message body which will sent to the browser. According to the HTTP 1.1 spec,</span>
<a name="line-253"></a><span class='hs-comment'>--</span>
<a name="line-254"></a><span class='hs-comment'>-- @the entity of the response SHOULD contain a short hypertext note with a hyperlink to the new URI(s).@</span>
<a name="line-255"></a><span class='hs-comment'>--</span>
<a name="line-256"></a><span class='hs-comment'>-- This is because pre-HTTP\/1.1 user agents do not support 303. However, in practice you can probably just use @\"\"@ as the second argument.</span>
<a name="line-257"></a><span class='hs-definition'>seeOther</span> <span class='hs-keyglyph'>::</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'>ToSURI</span> <span class='hs-varid'>uri</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>uri</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>res</span>
<a name="line-258"></a><span class='hs-definition'>seeOther</span> <span class='hs-varid'>uri</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>modifyResponse</span> <span class='hs-varop'>$</span> <span class='hs-varid'>redirect</span> <span class='hs-num'>303</span> <span class='hs-varid'>uri</span>
<a name="line-259"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-260"></a>
<a name="line-261"></a><a name="tempRedirect"></a><span class='hs-comment'>-- | Respond with @307 Temporary Redirect@.</span>
<a name="line-262"></a><span class='hs-comment'>--</span>
<a name="line-263"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ tempRedirect "<a href="http://example.org/">http://example.org/</a>" "What you are looking for is temporarily at <a href="http://example.org/">http://example.org/</a>"</span>
<a name="line-264"></a><span class='hs-definition'>tempRedirect</span> <span class='hs-keyglyph'>::</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'>ToSURI</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>res</span>
<a name="line-265"></a><span class='hs-definition'>tempRedirect</span> <span class='hs-varid'>val</span> <span class='hs-varid'>res</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>modifyResponse</span> <span class='hs-varop'>$</span> <span class='hs-varid'>redirect</span> <span class='hs-num'>307</span> <span class='hs-varid'>val</span>
<a name="line-266"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-267"></a>
<a name="line-268"></a><a name="badRequest"></a><span class='hs-comment'>-- | Respond with @400 Bad Request@.</span>
<a name="line-269"></a><span class='hs-comment'>--</span>
<a name="line-270"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ badRequest "Bad Request."</span>
<a name="line-271"></a><span class='hs-definition'>badRequest</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-272"></a><span class='hs-definition'>badRequest</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>400</span>
<a name="line-273"></a>
<a name="line-274"></a><a name="unauthorized"></a><span class='hs-comment'>-- | Respond with @401 Unauthorized@.</span>
<a name="line-275"></a><span class='hs-comment'>--</span>
<a name="line-276"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ unauthorized "You are not authorized."</span>
<a name="line-277"></a><span class='hs-definition'>unauthorized</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-278"></a><span class='hs-definition'>unauthorized</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>401</span>
<a name="line-279"></a>
<a name="line-280"></a><a name="forbidden"></a><span class='hs-comment'>-- | Respond with @403 Forbidden@.</span>
<a name="line-281"></a><span class='hs-comment'>--</span>
<a name="line-282"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ forbidden "Sorry, it is forbidden."</span>
<a name="line-283"></a><span class='hs-definition'>forbidden</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-284"></a><span class='hs-definition'>forbidden</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>403</span>
<a name="line-285"></a>
<a name="line-286"></a><a name="notFound"></a><span class='hs-comment'>-- | Respond with @404 Not Found@.</span>
<a name="line-287"></a><span class='hs-comment'>-- </span>
<a name="line-288"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ notFound "What you are looking for has not been found."</span>
<a name="line-289"></a><span class='hs-definition'>notFound</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-290"></a><span class='hs-definition'>notFound</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>404</span>
<a name="line-291"></a>
<a name="line-292"></a><a name="requestEntityTooLarge"></a><span class='hs-comment'>-- | Respond with @413 Request Entity Too Large@.</span>
<a name="line-293"></a><span class='hs-comment'>--</span>
<a name="line-294"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ requestEntityTooLarge "That's too big for me to handle."</span>
<a name="line-295"></a><span class='hs-definition'>requestEntityTooLarge</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-296"></a><span class='hs-definition'>requestEntityTooLarge</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>413</span>
<a name="line-297"></a>
<a name="line-298"></a><a name="internalServerError"></a><span class='hs-comment'>-- | Respond with @500 Internal Server Error@.</span>
<a name="line-299"></a><span class='hs-comment'>--</span>
<a name="line-300"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ internalServerError "Sorry, there was an internal server error."</span>
<a name="line-301"></a><span class='hs-definition'>internalServerError</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-302"></a><span class='hs-definition'>internalServerError</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>500</span>
<a name="line-303"></a>
<a name="line-304"></a><a name="badGateway"></a><span class='hs-comment'>-- | Responds with @502 Bad Gateway@.</span>
<a name="line-305"></a><span class='hs-comment'>--</span>
<a name="line-306"></a><span class='hs-comment'>-- > main = simpleHTTP nullConf $ badGateway "Bad Gateway."</span>
<a name="line-307"></a><span class='hs-definition'>badGateway</span> <span class='hs-keyglyph'>::</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'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>m</span> <span class='hs-varid'>a</span>
<a name="line-308"></a><span class='hs-definition'>badGateway</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>resp</span> <span class='hs-num'>502</span>
<a name="line-309"></a>
<a name="line-310"></a><a name="prettyResponse"></a><span class='hs-comment'>-- | A nicely formatted rendering of a 'Response'</span>
<a name="line-311"></a><span class='hs-definition'>prettyResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Response</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span>
<a name="line-312"></a><span class='hs-definition'>prettyResponse</span> <span class='hs-varid'>res</span><span class='hs-keyglyph'>@</span><span class='hs-conid'>Response</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>=</span>
<a name="line-313"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"================== Response ================"</span> <span class='hs-varop'>.</span>
<a name="line-314"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsCode = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsCode</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-315"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsHeaders = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsHeaders</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-316"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsFlags = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsFlags</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-317"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsBody = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsBody</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-318"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsValidator = "</span> <span class='hs-varop'>$</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsValidator</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span>
<a name="line-319"></a><span class='hs-definition'>prettyResponse</span> <span class='hs-varid'>res</span><span class='hs-keyglyph'>@</span><span class='hs-conid'>SendFile</span><span class='hs-layout'>{</span><span class='hs-layout'>}</span> <span class='hs-keyglyph'>=</span>
<a name="line-320"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"================== Response ================"</span> <span class='hs-varop'>.</span>
<a name="line-321"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsCode = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsCode</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-322"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsHeaders = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsHeaders</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-323"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsFlags = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsFlags</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-324"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nrsValidator = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>rsValidator</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span><span class='hs-varop'>.</span>
<a name="line-325"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nsfFilePath = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>sfFilePath</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-326"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nsfOffset = "</span> <span class='hs-varop'>.</span> <span class='hs-varid'>shows</span> <span class='hs-layout'>(</span><span class='hs-varid'>sfOffset</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span> <span class='hs-varop'>.</span>
<a name="line-327"></a> <span class='hs-varid'>showString</span> <span class='hs-str'>"\nsfCount = "</span> <span class='hs-varop'>$</span> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-varid'>sfCount</span> <span class='hs-varid'>res</span><span class='hs-layout'>)</span>
</pre></body>
</html>
|