deadfoxygrandpa

module Button (Model, Action, init, update, view) where

import Html
import Html.Attributes
import Html.Events
import Html.Animation
import Easing
import Effects

deadfoxygrandpa

module Main (..) where

import Automaton
import Dict
import Graphics.Element exposing (show)


main =
    Automaton.step 5 factorialAutomaton |> snd |> show

deadfoxygrandpa

import Math.Vector3 (vec3)
import Math.Vector4 (..)
import Math.Matrix4 (..)
import Graphics.WebGL (..)

-- Create a cube in which each vertex has a position and color

type Vertex =
    { color:Vec4

deadfoxygrandpa

import WebSocket as WS
 
inputs = constant ""
 
socket = WS.connect "ws://127.0.0.1" inputs
 
tests = count socket
 
main = (\a b-> asText a `above` asText b) <~ socket ~ tests

deadfoxygrandpa

{-# LANGUAGE OverloadedStrings #-}
module Socket where

import Control.Monad.Trans (MonadIO(liftIO))
import Control.Monad (forever)
import Control.Concurrent (threadDelay, forkIO)
import Control.Exception (catch, SomeException)
import qualified Data.ByteString.Char8 as BSC
import qualified Filesystem.Path.CurrentOS as FP
import qualified Network.WebSockets as WS

deadfoxygrandpa

import Mouse

import Signal.InputGroups as InputGroups

import Program
import Menu

-- State tracking code to see which of Program or Menu is open:
type State = {menuOpen : Bool}

deadfoxygrandpa

module Main where

import ElmTest.Assertion as A
import ElmTest.Run as R
import ElmTest.Runner.Console (runDisplay)
import ElmTest.Test (..)

import IO.IO (..)
import IO.Runner (Request, Response)
import IO.Runner as Run