packages feed

mps 2009.7.2 → 2009.7.4

raw patch · 6 files changed

+28/−15 lines, 6 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

− README.md
@@ -1,9 +0,0 @@-Message Passing Style Haskell Toolkit-=====================================--Example-----------### OO (duck) Syntax--    euler_1 = ( [3,6..999] ++ [5,10..999] ).unique.sum
changelog.md view
@@ -1,3 +1,10 @@+2009.7.15+---------++### Fix++* ljust / rjust bug+ 2009.7.2 --------- 
+ known-issues.md view
@@ -0,0 +1,1 @@+* return data in match in MPSUTF are not decoded, i.e. they are in utf-8 encoding
mps.cabal view
@@ -1,17 +1,17 @@ Name:                 mps-Version:              2009.7.2+Version:              2009.7.4 Build-type:           Simple-Synopsis:             message passing style helpers+Synopsis:             OO duck syntax Description:          message passing style helpers License:              BSD3 Author:               Wang, Jinjing Maintainer:           Wang, Jinjing <nfjinjing@gmail.com> Build-Depends:        base Cabal-version:        >= 1.2-data-files:           README.md, changelog.md category:             Development license-file:         LICENSE homepage:             http://github.com/nfjinjing/mps/+data-files:           readme.md, changelog.md, known-issues.md  library   ghc-options: -Wall
+ readme.md view
@@ -0,0 +1,14 @@+Message Passing Style Haskell Toolkit+=====================================++Example+--------++### OO (duck) Syntax++    euler_1 = ( [3,6..999] ++ [5,10..999] ).unique.sum++Cheatsheet by [Henry Laxen](http://mazatlan.ning.com/profile/henrylaxen)+-------------------------++[lhs source](master/src/Test/MPSexamples.lhs)
src/MPS/Light.hs view
@@ -149,11 +149,11 @@ map_with_index f = indexed > map f  ljust, rjust :: Int -> a -> [a] -> [a]-ljust n x xs +rjust n x xs    | n < xs.length = xs   | otherwise     = ( n.times x ++ xs ).reverse.take n.reverse -rjust n x xs+ljust n x xs   | n < xs.length = xs   | otherwise     = ( xs ++ n.times x ).take n @@ -308,7 +308,7 @@ capitalize (x:xs) = [x].upper ++ xs.lower  to_s :: (Show a) => a -> String-to_s x = x.show+to_s = show