github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

No need for these anymore

Browse Source
This commit is contained in:
Timothy Clem 2017-10-04 11:13:03 -07:00
parent 666585bf50
commit 8860a0942b
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Semantic/StatSpec.hs
View File

@ -6,12 +6,6 @@ import Test.Hspec.Expectations.Pretty
import System.Environment
import Control.Exception
setup :: String -> String -> IO ()
setup = setEnv
teardown :: String -> () -> IO ()
teardown key _ = unsetEnv key
withEnvironment :: String -> String -> (() -> IO ()) -> IO ()
withEnvironment key value = bracket (setEnv key value) (const (unsetEnv key))