view tests/style.ur @ 2195:18e6fb487880

Reduce: add reduction in some spots previously missed, associated with 'case' return types
author Adam Chlipala <adam@chlipala.net>
date Wed, 25 Nov 2015 18:48:17 -0500
parents 12ec14a6be0b
children
line wrap: on
line source
style q
style r

fun main () : transaction page = return <xml>
  <head>
    <link rel="stylesheet" type="text/css" href="http://www.schizomaniac.net/style.css" media="screen"/>
  </head>
  <body>
    Hi.  <span class={q}>And hi <span class={r}>again</span>!</span>
  </body>
</xml>