Skip to content

Instantly share code, notes, and snippets.

@abuiles

abuiles/Global.hs

Created July 12, 2010 19:41
Show Gist options
  • Save abuiles/472961 to your computer and use it in GitHub Desktop.
Save abuiles/472961 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Global.hs
_crcWarningList :: IORef CRCWarningList
_crcWarningList = unsafePerformIO $ newIORef []
addCRCWarning :: FilePath -> IO ()
addCRCWarning fp = modifyIORef _crcWarningList (fp:)
getCRCWarnings :: IO [FilePath]
getCRCWarnings = readIORef _crcWarningList
resetCRCWarnings :: IO ()
resetCRCWarnings = writeIORef _crcWarningList []
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment