show 0.1 → 0.2

raw patch · 3 files changed

+8/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ ShowQ: myquickcheck' :: (Testable a) => a -> IO String

- ShowQ: myquickcheck :: (Testable a) => a -> IO String

+ ShowQ: myquickcheck :: (Testable a) => a -> String

Files

ShowFun.hs +1/−1
ShowQ.hs +5/−2
show.cabal +2/−2

ShowFun.hs view

@@ -8,4 +8,4 @@     show e = '<' : (show . typeOf) e ++ ">"  instance Typeable a => Show (IO a) where-    show e = '<' : (show . typeOf) e ++ ">"+    show e = error $ show ('<' : (show . typeOf) e ++ ">")

ShowQ.hs view

@@ -67,8 +67,11 @@                                          fromIntegral b :: Integer) g of                             (x,g) -> (fromIntegral x, g) -myquickcheck :: Testable a => a -> IO String-myquickcheck a = do+myquickcheck :: Testable a => a -> String+myquickcheck = unsafePerformIO . myquickcheck'++myquickcheck' :: Testable a => a -> IO String+myquickcheck' a = do     rnd <- newStdGen     tests (evaluate a) rnd 0 0 []

show.cabal view

@@ -1,10 +1,10 @@ name:                show-version:             0.1+version:             0.2  license:             GPL license-file:        LICENSE author:              Lambdabot devs, Twan van Laarhoven <twanvl@gmail.com>--- maintainer:          Cale+maintainer:          Lambdabot developers  stability:           Experimental category:            Language