ghc-exactprint-1.14.0.0: tests/examples/ghc910/Operator1.hs
module Operator1 where
main :: IO ()
main = do
putStrLn $ show {- c3 -} $ {- c4 -} foo {- c1 -} || {- c2 -} bar
{-# RULES "print" forall x. putStrLn $ show $ x = print $ x #-}
module Operator1 where
main :: IO ()
main = do
putStrLn $ show {- c3 -} $ {- c4 -} foo {- c1 -} || {- c2 -} bar
{-# RULES "print" forall x. putStrLn $ show $ x = print $ x #-}