| {-# LANGUAGE NoImplicitPrelude, OverloadedStrings, RankNTypes, RecordWildCards, TemplateHaskell #-} | |
| module SingleWellSpec (main, spec) where | |
| import Test.Hspec | |
| import Data.Conduit.Cereal | |
| import Data.Conduit.Network | |
| import Data.Serialize | |
| import Conduit | |
| import Data.Modbus | |
| import qualified Data.ByteString.Lazy as BL |
| {-# LANGUAGE CPP, TemplateHaskell, QuasiQuotes #-} | |
| import GHCJS.DOM | |
| import GHCJS.DOM.Document | |
| import GHCJS.DOM.HTMLElement | |
| import GHCJS.DOM.Types | |
| import Text.Hamlet | |
| import Data.Text.Lazy (unpack) | |
| import Text.Blaze.Html.Renderer.Text (renderHtml) |
| -- Make sure you have the nes and beep2 sample sets to play this stuff | |
| -- Hippy Hoppy | |
| -- d1 $ (sound "{[hh:8*4,[bd:2 sn:2 bd:2 sn:2]/2], null hh:3 cp:2}") | |
| -- -- Hippy Glitchy | |
| -- d1 $ (sound "{[glitch:6*4,[glitch glitch:7 glitch glitch:7]/2], null glitch:4 glitch:3}") | |
| -- -- Dancy beepy |
| /kiosk.org~ | |
| /#kiosk.org# | |
| /.#kiosk.org |
| data OnpingForm = OnpingForm { | |
| row :: [Row] | |
| } | |
| data Row = Row { | |
| _rowItem :: [Item] | |
| _rowAttrib :: [RowAttributes] | |
| } |
| {-# LANGUAGE OverloadedStrings #-} | |
| {-# LANGUAGE NoMonomorphismRestriction #-} | |
| {-# LANGUAGE TemplateHaskell #-} | |
| {-# LANGUAGE QuasiQuotes #-} | |
| -- | GHC Command to run | |
| -- | :cmd return ":l Main\n :main -o midstates_chart.svg -h 1800 -w 1800" | |
| module Diagrams.Text.XML ( ) where | |
| * Form | |
| ** Company | |
| ** Address | |
| ** Rows | |
| *** Items | |
| **** ItemType | |
| ***** ItemLabel Label | |
| ****** "Name of Lease Operator" | |
| ***** ItemInput Input | |
| ****** InputTypeText "Scott" |
| I want to set up OAuth2 in service mode. | |
| https://developers.google.com/accounts/docs/OAuth2ServiceAccount | |
| I have to sign my own json | |
| https://developers.google.com/accounts/docs/OAuth2ServiceAccount#creatingjwt |