mps 0.0 → 0.0.0.1
raw patch · 3 files changed
+45/−37 lines, 3 filesdep +directorydep +utf8-stringdep ~pandocdep ~parsec
Dependencies added: directory, utf8-string
Dependency ranges changed: pandoc, parsec
Files
- LICENSE +11/−18
- MPS/Snippets.hs +19/−5
- mps.cabal +15/−14
LICENSE view
@@ -1,20 +1,13 @@-Copyright (c) 2008 Wang, Jinjing--Permission is hereby granted, free of charge, to any person obtaining a copy-of this software and associated documentation files (the "Software"), to deal-in the Software without restriction, including without limitation the rights-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell-copies of the Software, and to permit persons to whom the Software is-furnished to do so, subject to the following conditions:--The above copyright notice and this permission notice shall be included in-all copies or substantial portions of the Software.+(c) 2008 Wang, Jinjing -THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENMPS. IN NO EVENT SHALL THE-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN-THE SOFTWARE.+This work ‘as-is’ we provide.+No warranty, express or implied.+We’ve done our best,+to debug and test.+Liability for damages denied. +Permission is granted hereby,+to copy, share, and modify.+Use as is fit,+free or for profit.+On this notice these rights rely.
MPS/Snippets.hs view
@@ -20,9 +20,9 @@ import qualified Text.ParserCombinators.Parsec as P import Data.Foldable import Debug.Trace-import Text.Pandoc.UTF8 import Text.Pandoc-+import qualified Codec.Binary.UTF8.String as Codec+import System.Directory import Prelude hiding ((.), sum, product, maximum, minimum, foldl, foldr, foldl1, foldr1, concat, concatMap, and, or, any, all, elem)@@ -319,10 +319,9 @@ - -- Text-markdown = fromUTF8 >>> readMarkdown defaultParserState >>> writeHtml defaultWriterOptions-markdown' = fromUTF8 >>> readMarkdown defaultParserState >>> writeHtmlString defaultWriterOptions >>> toUTF8+markdown = from_utf8 >>> readMarkdown defaultParserState >>> writeHtml defaultWriterOptions+markdown' = from_utf8 >>> readMarkdown defaultParserState >>> writeHtmlString defaultWriterOptions >>> to_utf8 -- Monad@@ -331,3 +330,18 @@ a <.> b = a .liftM b infixl 9 <.>+++-- String+lower = map toLower+upper = map toUpper++-- IO+ls s = getDirectoryContents s <.> (\\ [".", ".."])++-- Text+filter_comment = lines >>> map strip >>> reject null >>> reject (head >>> (== '#')) >>> unlines++-- UTF8+from_utf8 = Codec.decodeString+to_utf8 = Codec.encodeString
mps.cabal view
@@ -1,17 +1,18 @@-Name: mps-Version: 0.0-Build-type: Simple-Synopsis: message passing style helpers-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.markdown-category: Development-license-file: LICENSE+Name: mps+Version: 0.0.0.1+Build-type: Simple+Synopsis: message passing style helpers+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.markdown+category: Development+license-file: LICENSE+homepage: http://github.com/nfjinjing/mps/ library- build-depends: base, containers, array, parallel, fgl, QuickCheck, time, bytestring >= 0.9.1.2, pandoc >= 0.46, regexpr >= 0.2.9, parsec >= 3.0.0+ build-depends: base, containers, array, parallel, fgl, QuickCheck, time, bytestring >= 0.9.1.2, pandoc >= 1.0.0.1, regexpr >= 0.2.9, parsec >= 2.1.0, utf8-string >= 0.3.1, directory >= 1.0.0.1 exposed-modules: MPS, MPS.Snippets, MPS.Hack.Dot