mirror of
https://github.com/aaronallen8455/graph-trace.git
synced 2024-09-11 09:05:34 +03:00
22 lines
482 B
Haskell
22 lines
482 B
Haskell
{-# OPTIONS_GHC -fplugin=Debug #-}
|
|
{-# LANGUAGE ImplicitParams #-}
|
|
|
|
import System.IO.Unsafe (unsafePerformIO)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
let ?_debug_ip = (Nothing, "test")
|
|
test
|
|
|
|
-- test :: (?_debug_ip :: (Maybe String, String)) => IO ()
|
|
-- test = test2
|
|
|
|
test :: (?_debug_ip :: (Maybe String, String)) => IO ()
|
|
test = print (?_debug_ip :: (Maybe String, String))
|
|
|
|
-- test :: (?x :: String) => IO ()
|
|
-- test = print ?x
|
|
|
|
blah :: ()
|
|
blah = unsafePerformIO $ putStrLn "test"
|