show 0.3 → 0.3.1
raw patch · 2 files changed
+4/−8 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- ShowQ.hs +3/−7
- show.cabal +1/−1
ShowQ.hs view
@@ -21,9 +21,6 @@ type T = [Int] type I = Int --- instance Ppr a => Show (Q a) where--- show e = unsafePerformIO $ runQ e >>= return . pprint- instance Arbitrary Char where arbitrary = choose (minBound, maxBound) coarbitrary c = variant (ord c `rem` 4)@@ -108,13 +105,12 @@ . filter (not . null) $ stamps - display [] = ".\n"- display [x] = " (" ++ x ++ ").\n"- display xs = ".\n" ++ unlines (map (++ ".") xs)+ display [] = "."+ display [x] = " (" ++ x ++ ")."+ display xs = "." ++ unlines (map (++ ".") xs) pairLength xss@(xs:_) = (length xss, xs) entry (n, xs) = percentage n ntest- ++ " " ++ concat (intersperse ", " xs) percentage n m = show ((100 * n) `div` m) ++ "%"
show.cabal view
@@ -1,5 +1,5 @@ name: show-version: 0.3+version: 0.3.1 license: GPL license-file: LICENSE