Sean Hess seanhess

Scientific Software Engineer, Haskell Enthusiast.

seanhess / cors.html

Created May 31, 2017 18:12

Cors example

	<html>

	<script>

	var xhr = new XMLHttpRequest();
	xhr.open("POST", 'http://localhost:8080/applications', true);

	//Send the proper header information along with the request
	xhr.setRequestHeader("Content-type", "application/json");

seanhess / Example.hs

Created January 23, 2017 18:35

XML Parsing

	{-# LANGUAGE DeriveGeneric #-}
	{-# LANGUAGE OverloadedStrings #-}
	module Simple.FactorTrust.Proprietary where

	import Control.Monad.Except (Except)
	import Control.Monad.IO.Class (MonadIO)
	import Control.Monad.Catch (MonadCatch)
	import Data.Aeson (ToJSON)
	import GHC.Generics (Generic)
	import Simple.FactorTrust.SendInquiry (sendAPI)

seanhess / Answer.hs

Created November 8, 2016 16:59

	{-# LANGUAGE DeriveGeneric #-}
	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE QuasiQuotes #-}
	{-# LANGUAGE TupleSections #-}

	module HRForms.Data.Answer where

	import Prelude hiding (id)

seanhess / Microservice.hs

Created October 31, 2016 22:36

Scotty Microservice

	{-# LANGUAGE OverloadedStrings #-}
	{-# LANGUAGE DeriveGeneric #-}

	import Control.Monad.IO.Class (liftIO)

	import Data.Aeson (ToJSON, Value)
	import Data.Time.Clock (UTCTime, getCurrentTime)
	import Data.Text.Lazy (Text)
	-- import Data.Monoid (mconcat)

seanhess / Tabs.elm

Last active September 9, 2016 06:37

	module Reuse.TabsExercise exposing (..)

	import Html exposing (Html, div, text, button, span, header, a)
	import Html.Attributes exposing (style)
	import Html.Events exposing (onClick)
	import Html.App as Html
	import Reuse.Functions as Order exposing (Msg3(..), update3, Model)
	import Reuse.Examples.Button as Button

seanhess / AdvancedJson.elm

Created September 7, 2016 11:34

	module Outside.AdvancedJson exposing (..)

	import Json.Decode as Json exposing (decodeString, succeed, string, (:=), Decoder, maybe, oneOf, list, float, int)
	import Json.Decode.Extra exposing ((\|:))
	import Json.Encode as Encode
	import String
	import Html exposing (div, h1, h2, text, button, ul, li, Html)
	import Html.App exposing (program)
	import Html.Events exposing (onClick)
	import Http

seanhess / Transition.elm

Created August 12, 2016 17:54

	fade : Bool -> Float -> Styles
	fade isShown splashHeight =
	[ transition "opacity 250ms, margin-top 250ms 250ms"
	, opacity (float 0)
	, marginTop (px -splashHeight)
	]
	++ if isShown then
	fadeShown
	else
	[]

seanhess / Post.swift

Created August 10, 2016 19:49

Simple data objects.

seanhess / project.clj

Created April 18, 2016 15:13

Clojure Project

	(defproject sampling "0.1.0-SNAPSHOT"
	:description "FIXME: write description"
	:url "http://example.com/FIXME"
	:license {:name "Eclipse Public License"
	:url "http://www.eclipse.org/legal/epl-v10.html"}
	:dependencies [[org.clojure/clojure "1.7.0"]
	[org.clojure/clojurescript "1.7.170"]
	[reagent "0.5.1" :exclusions [cljsjs/react]]
	[re-frame "0.6.0"]
	[prismatic/schema "1.0.4"]]

seanhess / 4.txt

Created March 17, 2016 21:49