path: root/testsuite/tests/simplCore/should_compile/T16918.hs

module Bug where

pokeArray :: () -> ()
pokeArray = pokeArray

pokeSockAddr :: String -> () -> ()
pokeSockAddr path p = (case path of ('\0':_) -> pokeArray) p