Merge commit '5da68e7'

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

import "Prelude"\r
\r
test :: () -> [Integer]\r
test _ = do\r
  header = [0]\r
  rows = map (\foo -> map (\bar -> bar) [foo]) [1..5]\r
  foldl (+) header rows\r
  \r
main = test ()\r
--\r
[0, 1, 2, 3, 4, 5]