Mercurial > urweb

comparison src/settings.sml @ 1478:a10d080123ec

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
'noXsrfProtection' .urp directive
author Adam Chlipala <adam@chlipala.net>
date Fri, 24 Jun 2011 13:50:59 -0400
parents 5018878ca645
children 290de2dcecf6
comparison
equal deleted inserted replaced
1477:d65387bdc557 1478:a10d080123ec
1 (* Copyright (c) 2008-2010, Adam Chlipala 1 (* Copyright (c) 2008-2011, Adam Chlipala
2 * All rights reserved. 2 * All rights reserved.
3 * 3 *
4 * Redistribution and use in source and binary forms, with or without 4 * Redistribution and use in source and binary forms, with or without
5 * modification, are permitted provided that the following conditions are met: 5 * modification, are permitted provided that the following conditions are met:
6 * 6 *
568 568
569 val alwaysInline = ref SS.empty 569 val alwaysInline = ref SS.empty
570 fun addAlwaysInline s = alwaysInline := SS.add (!alwaysInline, s) 570 fun addAlwaysInline s = alwaysInline := SS.add (!alwaysInline, s)
571 fun checkAlwaysInline s = SS.member (!alwaysInline, s) 571 fun checkAlwaysInline s = SS.member (!alwaysInline, s)
572 572
573 val noXsrfProtection = ref SS.empty
574 fun addNoXsrfProtection s = noXsrfProtection := SS.add (!noXsrfProtection, s)
575 fun checkNoXsrfProtection s = SS.member (!noXsrfProtection, s)
576
573 end 577 end