Skip to content

Instantly share code, notes, and snippets.

@munro
munro / facebook_messages.mcw
Created April 18, 2014 22:21
Facebook Messages designed in Macaw
{-# LANGUAGE FlexibleInstances #-}
import GHC.Float
data LangVariable = LangString String | LangNumber Double | LangNull deriving Show
class LangCoercion a where
toLangVariable :: a -> LangVariable
instance LangCoercion String where
import Control.Monad.State
import Control.Monad.Trans
type StackState a = StateT [Integer] IO a
--type StackStateIO = StateT [Integer] IO ()
push :: Integer -> StackState ()
push a = do
modify (a:)
return ()
-- How do I force evaluation when working with monadic values? :(
type HeapPtr = Integer
type VMVariable = String
__fn_0 :: [VMVariable] -> VMVariable
createFunction :: ([VMVariable] -> VMVariable) -> VMState VMVariable
setProp :: HeapPtr -> VMVariable -> VMVariable -> VMState ()
vmMain = do
vmMain :: VMState VMVariable
vmMain = do {
let (VMObject hello) = (VMObject 123);
return VMNull;
-- ^
-- parse error on input `return'
}
module Main
import meow
foo : Float
foo = 0.123
hello : Float -- can switch to Float/Int to use the correct one
hello = foo
@munro
munro / parser.hs
Last active August 29, 2015 14:01
-- | [33] IntConstant ::= ('+' | '-')? Digit+
-- >>> parse intConstant "fail" "+123"
-- Right "+123"
--
-- >>> parse intConstant "fail" "0003"
-- Right "0003"
--
-- >>> parse intConstant "fail" "-321"
-- Right "-321"
intConstant :: GenParser Char st String
INFO Response 200 GET /wd/hub/session/1839fbf4-435b-4a73-a75c-8916e461ac7f/alert_text{ state: 'success',
sessionId: '1839fbf4-435b-4a73-a75c-8916e461ac7f',
hCode: 2068511415,
value: 'Image URL',
class: 'org.openqa.selenium.remote.Response',
status: 0 }
HELLO ALERT { state: 'success',
sessionId: '1839fbf4-435b-4a73-a75c-8916e461ac7f',
hCode: 2068511415,
value: 'Image URL',
<link rel="import" href="../smoothie-chart/smoothie-chart.html">
<link rel="import" href="../code-mirror/code-mirror.html">
<link rel="import" href="../paper-tabs/paper-tabs.html">
<link rel="import" href="../paper-tabs/paper-tab.html">
<link rel="import" href="../ace-element/ace-element.html">
<polymer-element name="my-element">
<template>
<style>