Skip to content

Instantly share code, notes, and snippets.

View justindthomas's full-sized avatar

Justin Thomas justindthomas

23 followers · 19 following
View GitHub Profile
@justindthomas
justindthomas / gist:145208cb1c2b57e6da048c710e73fed9
Created December 27, 2017 02:44
Verifying my Blockstack ID is secured with the address 12VTLbXw8Kp8maxDVsdsvjbMwSumrTWSWy https://explorer.blockstack.org/address/12VTLbXw8Kp8maxDVsdsvjbMwSumrTWSWy
@justindthomas
justindthomas / gist:df86f400291a976603717b5aab5b8439
Created December 21, 2016 01:46
Verifying that "justindthomas.id" is my Blockstack ID. https://onename.com/justindthomas
@justindthomas
justindthomas / gist:1185d87fa842ebc9948e690cd9ec63f2
Created May 13, 2016 05:35
mkPersist defaultCodegenConfig [groundhog|
definitions:
- entity: Article
dbName: article
fields:
- name: created_at
dbname: created_at
default: now()
|]
@justindthomas
justindthomas / gist:fa926fee15bcfbd0fbab79b7989035c3
Created April 29, 2016 00:57
https://github.com/snapframework/xmlhtml/blob/master/src/Text/XmlHtml/HTML/Render.hs#L89
https://github.com/snapframework/xmlhtml/blob/master/src/Text/XmlHtml/XML/Render.hs#L134
https://github.com/snapframework/xmlhtml/blob/master/src/Text/XmlHtml/XML/Render.hs#L114
^^^ this is is the line that I tweaked to get rid of them in XML files
@justindthomas
justindthomas / gist:b9948090d1fdf1f3887a5f95d147bd6c
Created April 15, 2016 22:32
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeFamilies #-}
module Main where
@justindthomas
justindthomas / gist:c4b6d891d948f42ad9cefe87d0927b62
Created April 13, 2016 03:47
main :: IO ()
main = do
putStrLn "Starting Server..."
S.scotty 3000 $ do
S.get "/" $ S.html "Hello World!"
S.get "/articles" $ do
articles <- inHandlerDb $ selectList [] []
S.html ("Articles!" <> (T.pack $ show $ length (articles :: [Entity Article])))
S.get "/articles/:id" $ do
@justindthomas
justindthomas / gist:cde3f0cf8036050f04e69a8197658867
Created April 1, 2016 03:24
data Article = Article
{ articleId :: Int
, title :: T.Text
, content :: T.Text
, created_at :: LocalTime
}
splice :: (HasPostgres n, Monad n) => C.Splice n
splice = do
@justindthomas
justindthomas / gist:b1bf659553c5754814baaf722ca970e9
Created March 31, 2016 05:46
Couldn't match expected type ‘Article -> T.Text’
with actual type ‘T.Text’
In the second argument of ‘(##)’, namely
‘T.pack
$ L.unpack $ X.renderHtml $ markdownToHtml $ T.pack $ show content’
In a stmt of a 'do' block:
"articleContent"
##
T.pack
$ L.unpack $ X.renderHtml $ markdownToHtml $ T.pack $ show content
@justindthomas
justindthomas / gist:c24ec192a8b45e108b89
Last active February 19, 2016 22:54
## Prepare VyOS image
VYOS_URL="http://mirror.tuxhelp.org/vyos/iso/release/1.1.7/vyos-1.1.7-i586-virt.iso"
if [ ! -f $ROOT_DIR/tmp/vyos.iso.dist ]; then
echo "Preparing base VyOS image..."
wget $VYOS_URL -O $ROOT_DIR/tmp/vyos.iso.dist
mkdir -p $ROOT_DIR/tmp/mnt
sudo mount -o loop -t iso9660 $ROOT_DIR/tmp/vyos.iso.dist $ROOT_DIR/tmp/mnt
mkdir -p $ROOT_DIR/tmp/vyos-orig
cp -r $ROOT_DIR/tmp/mnt/* $ROOT_DIR/tmp/vyos-orig/
@justindthomas
justindthomas / gist:bc586d91cc497c43fdd4
Created February 9, 2016 17:39
sudo strace -p 16521
Process 16521 attached
restart_syscall(<... resuming interrupted call ...>) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0
nanosleep({0, 200000000}, NULL) = 0