fay-0.19: tests/circular.hs

module Circular where

main :: Fay ()
main = let y = x + 1::Double
           x = y + 1
       in print y