1 2 3 4 5 6 7 8
{-# LANGUAGE Safe #-} module UnsafeInfered01 where import safe UnsafeInfered01_A g :: IO a -> a g = f