]> gerrit.simantics Code Review - simantics/platform.git/blob - GuardedExpressionBug.scl
c0d45f1619c5dedc140aaebd08ca2da313d29f12
[simantics/platform.git] / GuardedExpressionBug.scl
1 tableIndex :: Double -> Double
2 tableIndex x
3     | True = x
4   where
5     f _ = x
6
7 main = "Foo"
8 --
9 Foo