Skip to content

Instantly share code, notes, and snippets.

@cocreature

cocreature/HspecBug.hs

Created August 2, 2016 18:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save cocreature/f7a6e1b08face3911222202ca84ae812 to your computer and use it in GitHub Desktop.
Save cocreature/f7a6e1b08face3911222202ca84ae812 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
HspecBug.hs
import Test.Hspec
import Control.Exception
import Control.Concurrent
main :: IO ()
main =
hspec $
describe "it" $
do it "should run" $
do finally (do threadDelay 10000000
putStrLn "ran action")
(do threadDelay 1000000
putStrLn "finalizer")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment