run xmpp test in bound thread

This commit is contained in:
Joey Hess 2012-10-26 14:38:04 -04:00
parent 07494cbb4b
commit 82b7e835e4
2 changed files with 2 additions and 1 deletions

View file

@ -26,6 +26,7 @@ import Network
import Network.Protocol.XMPP
import Data.Text (Text)
import qualified Data.Text as T
import Control.Concurrent
#endif
getXMPPR :: Handler RepHtml