Fixed a bug related to as-pattern in list comprehension.

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / ListComprehensionBug1.scl

import "Prelude"

f :: [(String,String)] -> [(String,String,String)] 
f l = [(show m,x,y) | m@(x,y) <-l ]

main = f []  
--
[]