file-location 0.4.8 → 0.4.9

raw patch · 2 files changed

+16/−7 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Test/FileLocation.hs +15/−6
• file-location.cabal +1/−1

@@ -7,20 +7,29 @@ import Control.Monad.IO.Class (liftIO)  -- | A version of assertEqual that gives location information.------ TODO: push upstream to file-location assertEq :: Q Exp assertEq = do   loc <- location   let prefix = locationToString loc ++ " "-  [|(\x -> liftIO . HUnit.assertEqual prefix x)|]+  [|(\x -> HUnit.assertEqual prefix x)|]  -- | a MonadIO version of assertBool that gives location information.------ TODO: push upstream to file-location assertB :: Q Exp assertB = do   loc <- location   let prefix = locationToString loc ++ "assertB "-  [|(liftIO . HUnit.assertBool prefix)|]+  [|(HUnit.assertBool prefix)|] +-- | Same as 'assertEq', but uses 'liftIO'+assertEq' :: Q Exp+assertEq' = do+  loc <- location+  let prefix = locationToString loc ++ " "+  [|(\x -> liftIO . HUnit.assertEqual prefix x)|]++-- | Same as 'assertB, but uses 'liftIO'+assertB' :: Q Exp+assertB' = do+  loc <- location+  let prefix = locationToString loc ++ "assertB "+  [|(liftIO . HUnit.assertBool prefix)|]

@@ -1,5 +1,5 @@ Name:                file-location-Version:             0.4.8+Version:             0.4.9 Synopsis:            common functions that show file location information Homepage:            https://github.com/gregwebs/FileLocation.hs License:             BSD3