test/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{-# LANGUAGE TemplateHaskell #-}
module Main where

import Data.IORef (IORef, atomicModifyIORef', newIORef)

import InitOnce


globalRef :: IORef Int
globalRef = $$(once [|| newIORef 0 ||])

{-# NOINLINE foo #-}
foo :: IO String
foo = atomicModifyIORef' globalRef (\i -> (i + 1, show i))

main :: IO ()
main = do
  putStrLn =<< foo
  putStrLn =<< foo