fay-0.23.1.7: tests/VarPtr.hs

module VarPtr where

import Data.Var

data Record = Record Int

main = do 
  v <- newVar $ Record 5
  subscribeAndRead v $ \y -> case y of
    Record a -> putStrLn . show $ a
  set v $ Record 10