Skip to content

Instantly share code, notes, and snippets.

View ryantrinkle's full-sized avatar

Ryan Trinkle ryantrinkle

229 followers · 0 following
View GitHub Profile
@ryantrinkle
ryantrinkle / SevenTasks.hs
Created September 2, 2015 08:49
{-# LANGUAGE RecursiveDo, ScopedTypeVariables, FlexibleContexts #-}
import Reflex.Dom
import Data.Monoid
import Control.Monad
import Data.Map (Map)
import qualified Data.Map as Map
insertNew_ :: (Enum k, Ord k) => v -> Map k v -> Map k v
insertNew_ v m = case Map.maxViewWithKey m of
@ryantrinkle
ryantrinkle / gist:7b16a6a2af5a8a3658e8
Created September 3, 2015 21:33
import GHCJS.DOM
import GHCJS.DOM.Document
import GHCJS.DOM.Element
import GHCJS.DOM.Event
import GHCJS.DOM.EventM
import GHCJS.DOM.MouseEvent
import GHCJS.DOM.Types
import Control.Monad
import Control.Monad.IO.Class
@ryantrinkle
ryantrinkle / Sample.hs
Last active October 7, 2015 21:37 — forked from et4te/Sample.hs
Here the updated baseImgD in templateRenderCanvas will not fire
templateRenderCanvas qrcInfoD cnvInfo newBaseImage initialBaseImage = do
cnvRef <- liftIO $ mkCanvas' cnvInfo
qrcInfo <- sample $ current qrcInfoD
imgRef <- liftIO $ canvasDisplay cnvRef imgInfo
qrcRef <- liftIO $ canvasDisplay cnvRef qrcInfo
liftIO $ canvasAddChild cnvRef imgRef
liftIO $ imageAddChild imgRef qrcRef
return ()
@ryantrinkle
ryantrinkle / changeWidget.hs
Created October 11, 2015 18:14
import Reflex.Dom
main = mainWidget $ do
bChangeWidget <- button "changeWidget"
el "div" $ widgetHold (text "placeholder") $ fmap (\_ -> text "changed") bChangeWidget
return ()
@ryantrinkle
ryantrinkle / gist:3e1a8e444c0b22f27c37
Created November 22, 2015 04:05
networking.nat = {
enable = true;
internalInterfaces = ["ve-+"];
externalInterface = "enp6s0";
forwardPorts = [
{ sourcePort = 3000; destination = "192.168.100.2:3000"; }
];
};
containers = {
@ryantrinkle
ryantrinkle / gist:eee6d7f076f38199afad5c85a7cfdcb3
Created June 20, 2016 20:41
{ stdenv, fetchurl, cups, dpkg, ghostscript, patchelf, a2ps, coreutils, gnused, gawk, file }:
let version = "1.1.2-1";
printerName = "hl3170cdw";
lprDownloadId = "007056";
cupswrapperDownloadId = "007058";
in stdenv.mkDerivation rec {
name = "${printerName}-cupswrapper-${version}";
inherit version;
srcs =
@ryantrinkle
ryantrinkle / monoidalWidget.hs
Created October 23, 2017 23:05
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecursiveDo #-}
import Control.Monad (ap)
import Control.Monad.Trans (lift)
import Data.Semigroup (First (..))
import Data.Text (Text)
import qualified Data.Text as T
import Reflex.Dom
newtype MonoidalWidget t m e = MonoidalWidget { unMonoidalWidget :: EventWriterT t (First e) m () }
@ryantrinkle
ryantrinkle / router.nix
Created August 14, 2018 15:15
{ config, lib, pkgs, ... }:
#TODO: Hairpinning
#TODO: WiFi AP
# - NAT
# - DHCP
with lib;
let externalInterface = "enp1s0";
@ryantrinkle
ryantrinkle / build.log
Created December 27, 2018 15:51
unpacking sources
unpacking source archive /nix/store/c36x4l6a4raqxc9krkf3nbrv4kwfxk3h-source
source root is source
patching sources
applying patch /nix/store/bn2glwzfc4dwdqzbdsyd9jawn9f694vr-1230afb211f85e0cdf5fb10c9becf318cd626d88...nixos-zfs-2018-08-13.patch
patching file .github/PULL_REQUEST_TEMPLATE.md
patching file cmd/zdb/zdb.c
patching file cmd/zed/agents/zfs_mod.c
patching file cmd/zpool/zpool_main.c
patching file cmd/ztest/ztest.c
@ryantrinkle
ryantrinkle / strace.out
Created December 27, 2018 19:08
$ gcc acltest.c && sudo strace -f ./a.out
execve("./a.out", ["./a.out"], 0x7ffe03614de8 /* 17 vars */) = 0
brk(NULL) = 0x1189000
access("/etc/ld-nix.so.preload", R_OK) = -1 ENOENT (No such file or directory)
openat(AT_FDCWD, "/nix/store/n0axl4pks91d841aivjqm3m0gmdj3f2h-shell/lib64/tls/x86_64/x86_64/libc.so.6", O_RDONLY|O_CLOEXEC) = -1 ENOENT (No such file or directory)
stat("/nix/store/n0axl4pks91d841aivjqm3m0gmdj3f2h-shell/lib64/tls/x86_64/x86_64", 0x7fffea8d7150) = -1 ENOENT (No such file or directory)
openat(AT_FDCWD, "/nix/store/n0axl4pks91d841aivjqm3m0gmdj3f2h-shell/lib64/tls/x86_64/libc.so.6", O_RDONLY|O_CLOEXEC) = -1 ENOENT (No such file or directory)
stat("/nix/store/n0axl4pks91d841aivjqm3m0gmdj3f2h-shell/lib64/tls/x86_64", 0x7fffea8d7150) = -1 ENOENT (No such file or directory)
openat(AT_FDCWD, "/nix/store/n0axl4pks91d841aivjqm3m0gmdj3f2h-shell/lib64/tls/x86_64/libc.so.6", O_RDONLY|O_CLOEXEC) = -1 ENOENT (No such file or directory)
stat("/nix/store/n0axl4pks91d841aivjq