Skip to content

Instantly share code, notes, and snippets.

View SketchSystems.spec
Disconnected 0
request arrives -> Connecting 0
Connecting 0
Connecting-Connecting
connect fails -> Connecting-Connecting
connect times out -> Disconnected 0
connect succeeds -> Connecting-Pinging
Connecting-Pinging
View rectangle.hs
#!/usr/bin/env stack
{- stack script --resolver lts-12.24 --package sdl2 -}
import Control.Concurrent
import SDL
main :: IO ()
main = do
initialize [InitVideo]
window <- createWindow mempty defaultWindow
View haskell-default-extensions.dhall
let
Extension =
https://raw.githubusercontent.com/dhall-lang/dhall-to-cabal/1.3.0.0/dhall/types/Extension.dhall
sha256:a5451bf19663c919ba35df6ca4e9843fabef1867888feda40f13bb627dfa271c
in let
extension =
constructors Extension
in
View .travis.yml
sudo: false
language: generic
cache:
directories:
- $HOME/.stack
addons:
apt:
packages:
@mitchellwrosen
mitchellwrosen / clowns-jokers.hs
Created Mar 14, 2018
Clowns to the Left of me, Jokers to the Right
View clowns-jokers.hs
-- http://strictlypositive.org/CJ.pdf
{-# language DeriveFunctor #-}
{-# language FlexibleInstances #-}
{-# language FunctionalDependencies #-}
{-# language LambdaCase #-}
{-# language MultiParamTypeClasses #-}
{-# language PatternSynonyms #-}
{-# language ScopedTypeVariables #-}
{-# language TypeOperators #-}
View a-tour-of-go.hs
{-# language DeriveAnyClass #-}
{-# language FlexibleContexts #-}
{-# language FlexibleInstances #-}
{-# language GADTs #-}
{-# language LambdaCase #-}
{-# language NamedFieldPuns #-}
{-# language RankNTypes #-}
{-# language ScopedTypeVariables #-}
{-# language TupleSections #-}
{-# language TypeApplications #-}
View terminal-sharing-notes.md

Remote terminal sharing

Some quick notes to document this somewhat tedious process.

To broadcast my terminal to the world:

1. TLS cert

If necessary, generate a self-signed TLS cert for gotty.

@mitchellwrosen
mitchellwrosen / invoker.hs
Last active Sep 22, 2017
A simple Invoker practice terminal app using reactive-banana
View invoker.hs
#!/usr/bin/env stack
{- stack --resolver lts-9.5 runghc
--package clock
--package fgl
--package random
--package reactive-banana
--package vty
-}
{-# language LambdaCase #-}
View keybase.md

Keybase proof

I hereby claim:

  • I am mitchellwrosen on github.
  • I am mitchellsalad (https://keybase.io/mitchellsalad) on keybase.
  • I have a public key whose fingerprint is 3690 8209 3820 4AE4 DE6C 458C ADEE B819 CFC3 B7BE

To claim this, I am signing this object:

@mitchellwrosen
mitchellwrosen / brainfuck.hs
Last active Aug 29, 2015
Brainfuck interpreter
View brainfuck.hs
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TemplateHaskell #-}
module Brainfuck where
import Control.Lens
import Control.Monad.Except