Таймауты с ghc 7.8.3

Question

В настоящее время я пытаюсь скомпилировать симулятор, созданный с помощью ghc 7.6.3, с новым ghc 7.8.3 и столкнулся с проблемой с GHC.Event.

Я использую функции таймаута, которые изменились с помощью 7.8.3. В 7.8.3 теперь имеется глобальная функция getSystemTimerManager, которая возвращает TimerManager. Но тип данных TimerManager не экспортируется, он является частью скрытого пакета GHC.Event.TimerManager. Когда я пытаюсь импортировать этот модуль я получаю:

Utils/Timer.hs:16:8: 
    Could not find module ‘GHC.Event.TimerManager’ 
    it is a hidden module in the package ‘base’ 
    Use -v to see a list of the files searched for. 

В чем причина, что этот модуль скрыт, так что не могут быть использованы функции таймера?

Answer 1

Хотя тип не экспортируется, все это означает, что вы не можете записать подпись типа, которая упоминает ThreadManager. Вы все равно можете позвонить по телефону registerTimeout, updateTimeout или unregisterTimeout.

Пример:

module Main where 

import GHC.Event 
import Control.Concurrent (threadDelay) 

main = do 
    tm <- getSystemTimerManager 
    _ <- registerTimeout tm 100000 $ do 
    putStrLn "timeout!" 
    putStrLn "sleeping" 
    threadDelay 200000 
    putStrLn "wokeup" 

Это компилируется и работает и печатает "sleeping\ntimeout!\nwokeup".

Что бы не сработало, чтобы попытаться записать тип tm. Иногда это может раздражать, если вы хотите использовать диспетчер таймера в некоторой структуре данных. Но я думаю, вы не должны это делать.