This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 () |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- 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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| vmMain :: VMState VMVariable | |
| vmMain = do { | |
| let (VMObject hello) = (VMObject 123); | |
| return VMNull; | |
| -- ^ | |
| -- parse error on input `return' | |
| } | |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| module Main | |
| import meow | |
| foo : Float | |
| foo = 0.123 | |
| hello : Float -- can switch to Float/Int to use the correct one | |
| hello = foo |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| -- | [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 |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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', |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| <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> |