Maciej Smolinski maciejsmolinski

## parser.hs
module Main (main) where

import Prelude
import System.Environment
import Control.Monad
import Text.ParserCombinators.Parsec

main :: IO ()
main = do
  (text:_) <- getArgs

## index.js
const daggy = require('daggy');

const Status = daggy.taggedSum('Status', {
  Pending: [],
  Done: [],
  Failed: ['reason'],
});

const jobs = [
  { id: 1, status: Status.Pending },

## index.html
<!DOCTYPE html>
<html>
  <head>
    <title>A simple d3 chart</title>
    <meta charset="UTF-8" />
  </head>

  <body>
    <div id="app">
      <svg id="viz"></svg>

## Main.purs
module Main where

import Prelude

import Effect (Effect)
import Data.Maybe (Maybe(..))
import React (ReactElement)
import React.DOM (text)
import ReactDOM (render)
import Web.HTML (window)

## Parser.purs
module Parser (Parser, item, digit, run) where

import Data.Int (fromString)
import Data.Maybe (fromJust, Maybe(..))
import Data.String.CodeUnits (charAt, drop, singleton)
import Data.Tuple (Tuple(..))
import Partial.Unsafe (unsafePartial)
import Prelude

newtype Parser a = Parser (String -> Array (Tuple a String))

## Main.purs
module Main where

import Data.Traversable (traverse_)
import Effect (Effect)
import Effect.Console (logShow)
import Prelude

data Expression
  = Num Int
  | Add Expression Expression

## purescript.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                maciejsmolinski
                / purescript.md
            
            
              Last active
              June 6, 2018 08:02
            
              
                Create ES6 + PureScript application in 4 simple steps
              
          
    In the project directory:

Install global dependencies https://streamable.com/era9s

yarn global add purescript@0.11.7 psc-package pulp


Generate an example project in the current directory https://streamable.com/gcjih

pulp --psc-package init


Install web application bundler https://streamable.com/f9l56

yarn add parcel


Call purescript from JavaScript https://streamable.com/u5s49

yarn dev and pulp --watch build


## mock.hs
data Article = Article
  { title :: String
  , body :: String
  } deriving (Show)

articles :: IO [Article]
articles =
  return
    [ Article
      { title = "First article"

## morning.js
data Mood = Good | Bad
    deriving (Show)

morning :: Mood -> String
morning mood = show mood ++ " Morning!"

main :: IO ()
main = putStrLn $ morning Good

## sanctuary-validations.js

const validations = {
    address: (street, postcode, city) => {
        if (street && postcode && city) {
            return S.Right(`${street}, ${postcode}, ${city}`)
        }
        return S.Left(`Incorrect address provided (${street}, ${postcode}, ${city})`);
    },
    email: (email) => {
        if (/^(([^<>()\[\]\\.,;:\s@"]+(\.[^<>()\[\]\\.,;:\s@"]+)*)|(".+"))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$/.test(email)) {
	module Main (main) where

	import Prelude
	import System.Environment
	import Control.Monad
	import Text.ParserCombinators.Parsec

	main :: IO ()
	main = do
	(text:_) <- getArgs
	const daggy = require('daggy');

	const Status = daggy.taggedSum('Status', {
	Pending: [],
	Done: [],
	Failed: ['reason'],
	});

	const jobs = [
	{ id: 1, status: Status.Pending },
	<!DOCTYPE html>
	<html>
	<head>
	<title>A simple d3 chart</title>
	<meta charset="UTF-8" />
	</head>

	<body>
	<div id="app">
	<svg id="viz"></svg>
	module Main where

	import Prelude

	import Effect (Effect)
	import Data.Maybe (Maybe(..))
	import React (ReactElement)
	import React.DOM (text)
	import ReactDOM (render)
	import Web.HTML (window)
	module Parser (Parser, item, digit, run) where

	import Data.Int (fromString)
	import Data.Maybe (fromJust, Maybe(..))
	import Data.String.CodeUnits (charAt, drop, singleton)
	import Data.Tuple (Tuple(..))
	import Partial.Unsafe (unsafePartial)
	import Prelude

	newtype Parser a = Parser (String -> Array (Tuple a String))
	module Main where

	import Data.Traversable (traverse_)
	import Effect (Effect)
	import Effect.Console (logShow)
	import Prelude

	data Expression
	= Num Int
	\| Add Expression Expression
	data Article = Article
	{ title :: String
	, body :: String
	} deriving (Show)

	articles :: IO [Article]
	articles =
	return
	[ Article
	{ title = "First article"
	data Mood = Good \| Bad
	deriving (Show)

	morning :: Mood -> String
	morning mood = show mood ++ " Morning!"

	main :: IO ()
	main = putStrLn $ morning Good

	const validations = {
	address: (street, postcode, city) => {
	if (street && postcode && city) {
	return S.Right(`${street}, ${postcode}, ${city}`)
	}
	return S.Left(`Incorrect address provided (${street}, ${postcode}, ${city})`);
	},
	email: (email) => {
	if (/^(([^<>()\[\]\\.,;:\s@"]+(\.[^<>()\[\]\\.,;:\s@"]+)*)\|(".+"))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])\|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))$/.test(email)) {