data Foo = Foo { bar :: IORef Int , baz :: TVar Int }
Foo <$> newIORef 0 <*> newTVarIO 0
Foo { bar <- newIORef 0 , baz <- newTVarIO 0 }