NOINLINE to unsafePerformIO function

Warning by HLint
ku-fpg · Apr 8, 2017 · 80f3061 · 80f3061
1 parent cb3e4a8
commit 80f3061
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Debug/Hood/Observe.hs b/Debug/Hood/Observe.hs
@@ -596,6 +596,7 @@ sendEvent nodeId parent change =
  }
 
 -- local
+{-# NOINLINE events #-}
 events :: IORef [Event]
 events = unsafePerformIO $ newIORef badEvents