putDebugMsg :: String -> IO ()
putDebugMsg | c_DEBUG_DUMP = undefined --debugLn TODO: Replace with system.out.println
            | otherwise    = const (return ())
putDebugMsg :: String -> IO ()
putDebugMsg | c_DEBUG_DUMP = undefined --debugLn TODO: Replace with system.out.println
            | otherwise    = const (return ())
putDebugMsg | c_DEBUG_DUMP = undefined --debugLn TODO: Replace with system.out.println
            | otherwise    = const (return ())