1238f29 · rowtype-yoga/purescript-native

libraries/.gitignoredeleted−1

compare with golang

unifiedsplit

@@ -1 +0,0 @@

1−*/all.js

libraries/jquery/jquery.pursdeleted−45

@@ -1,45 +0,0 @@

1−module JQuery where

2−

3− import Eff

4−

5− -- An effect type which indicates DOM manipulation

6− foreign import data DOM :: !

7−

8− -- The jQuery wrapper type

9− foreign import data JQuery :: *

10−

11− -- Wrapper function for jQuery selection $('..')

12− foreign import select "function select(selector) { return function () { return jQuery(selector); }; }" :: forall eff. String -> Eff (dom :: DOM | eff) JQuery

13−

14− -- Wrapper function for jQuery creation e.g. $('<div>')

15− foreign import create "function create(html) { return function () { return jQuery(html); }; }" :: forall eff. String -> Eff (dom :: DOM | eff) JQuery

16−

17− -- .attr({ ... })

18− foreign import attr "function attr(attrs) { return function(ob) { return function () { return ob.attr(attrs); }; }; }" :: forall eff attr. { | attr } -> JQuery -> Eff (dom :: DOM | eff) JQuery

19−

20− -- .css({ ... })

21− foreign import css "function css(props) { return function(ob) { return function () { return ob.css(props); }; }; }" :: forall eff css. { | css } -> JQuery -> Eff (dom :: DOM | eff) JQuery

22−

23− -- .append(...)

24− foreign import append "function append(ob1) { return function(ob) { return function () { return ob.append(ob1); }; }; }" :: forall eff. JQuery -> JQuery -> Eff (dom :: DOM | eff) JQuery

25−

26− -- .append(...)

27− foreign import appendText "function appendText(s) { return function(ob) { return function () { return ob.append(s); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

28−

29− -- Get the document body

30− foreign import body "function body() { return jQuery(document.body); }" :: forall eff. Eff (dom :: DOM | eff) JQuery

31−

32− -- Get the text content of an element

33− foreign import getText "function getText(ob) { return function() { return ob.text(); }; }" :: forall eff. JQuery -> Eff (dom :: DOM | eff) String

34−

35− -- Set the text content of an element

36− foreign import setText "function setText(text) { return function(ob) { return function() { ob.text(text); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

37−

38− -- Get the value of a text field

39− foreign import getValue "function getValue(ob) { return function() { return ob.val(); }; }" :: forall eff. JQuery -> Eff (dom :: DOM | eff) String

40−

41− -- Set the value of a text field

42− foreign import setValue "function setValue(val) { return function(ob) { return function() { return ob.val(val); }; }; }" :: forall eff. String -> JQuery -> Eff (dom :: DOM | eff) JQuery

43−

44− -- Register an event handler

45− foreign import on "function on(evt) { return function(act) { return function(ob) { return function() { return ob.on(evt, function() { act(); } ); }; }; }; }" :: forall eff a. String -> Eff eff a -> JQuery -> Eff (dom :: DOM | eff) JQuery

libraries/jquery/tests/.gitignoredeleted−1

@@ -1 +0,0 @@

1−jquery.js

libraries/jquery/tests/build.shdeleted−2

@@ -1,2 +0,0 @@

1−psc ../jquery.purs jquery.purs --magic-do --run-main -o jquery.js

2−

libraries/jquery/tests/index.htmldeleted−10

@@ -1,10 +0,0 @@

1−<!DOCTYPE html>

2−<html>

3−<head>

4−<title>JQuery Example</title>

5−<script src="http://cdnjs.cloudflare.com/ajax/libs/jquery/1.10.2/jquery.js"></script>

6−</head>

7−<body>

8−<script src="jquery.js"></script>

9−</body>

10−</html>

libraries/jquery/tests/jquery.pursdeleted−28

@@ -1,28 +0,0 @@

1−module Main where

2−

3−import Prelude

4−import Eff

5−import Trace

6−import JQuery

7−

8−main = do

9− -- Get the document body

10− b <- body

11−

12− -- Create a text box

13− div <- create "<div>"

14− input <- create "<input>"

15− "Your Name: " `appendText` div

16− input `append` div

17− div `append` b

18−

19− -- Create a paragraph to display a greeting

20− greeting <- create "<p>"

21− { color: "red" } `css` greeting

22− greeting `append` b

23−

24− -- Listen for change events on the text box

25− flip (on "change") input $ do

26− name <- getValue input

27− trace $ "Name changed to " ++ name

28− setText ("Hello, " ++ name) greeting

libraries/prelude/updateDocs.shdeleted−2

@@ -1,2 +0,0 @@

1−../../dist/build/docgen/docgen prelude.purs > README.md

2−pandoc -o ../../docs/source/prelude.rst README.md

libraries/prelude/README.md → prelude/README.mdrenamed

The content is the same.

libraries/prelude/prelude.purs → prelude/prelude.pursrenamed

The content is the same.

libraries/prelude/tests/.gitignore → prelude/tests/.gitignorerenamed

The content is the same.

libraries/prelude/tests/Eff.purs → prelude/tests/Eff.pursrenamed

The content is the same.

libraries/prelude/tests/build.sh → prelude/tests/build.shrenamed

The content is the same.

prelude/updateDocs.shnew file+2

@@ -0,0 +1,2 @@

1+../dist/build/docgen/docgen prelude.purs > README.md

2+pandoc -o ../docs/source/prelude.rst README.md

psc/Main.hs+1−1

@@ -25,7 +25,7 @@ import qualified Paths_purescript as Paths

25import Data.Version (showVersion)

26

27preludeFilename :: IO FilePath

28−preludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

28+preludeFilename = Paths.getDataFileName "prelude/prelude.purs"

29

30readInput :: Maybe [FilePath] -> IO (Either ParseError [P.Module])

31readInput Nothing = getContents >>= return . P.runIndentParser "" P.parseModules

psci/Main.hs+1−1

@@ -32,7 +32,7 @@ import qualified System.IO.UTF8 as U (readFile)

32import qualified Text.Parsec as Parsec (eof)

33

34getPreludeFilename :: IO FilePath

35−getPreludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

35+getPreludeFilename = Paths.getDataFileName "prelude/prelude.purs"

36

37options :: P.Options

38options = P.Options True False True True True

purescript.cabal+2−2

@@ -1,5 +1,5 @@

1name: purescript

2−version: 0.3.10.1

2+version: 0.3.11

3cabal-version: >=1.8

4build-type: Simple

5license: MIT

@@ -11,7 +11,7 @@ synopsis: PureScript Programming Language Compiler

11description: A small compile-to-JS language with extensible records and type-safe blocks

12category: Language

13author: Phil Freeman <paf31@cantab.net>, Gary Burgess <gary.burgess@gmail.com>

14−data-files: libraries/prelude/prelude.purs

14+data-files: prelude/prelude.purs

15data-dir: ""

16

17library

tests/Main.hs+1−1

@@ -34,7 +34,7 @@ import qualified System.IO.UTF8 as U

34import qualified Data.Map as M

35

36preludeFilename :: IO FilePath

37−preludeFilename = Paths.getDataFileName "libraries/prelude/prelude.purs"

37+preludeFilename = Paths.getDataFileName "prelude/prelude.purs"

38

39readInput :: [FilePath] -> IO (Either ParseError [P.Module])

40readInput inputFiles = fmap (fmap concat . sequence) $ forM inputFiles $ \inputFile -> do