Skip to content

Instantly share code, notes, and snippets.

trying to code his way out of it

Sebastian Gfeller sebug

trying to code his way out of it
View GitHub Profile
sebug / SmartArt.purs
Created Jul 8, 2016
Canvas schematic arrows
View SmartArt.purs
module SmartArt where
import Prelude (bind, ($), (+), (*), (-), (/), pure)
import Control.Monad.Eff (Eff)
import Graphics.Canvas (CANVAS, fillPath, setFillStyle, moveTo, lineTo, fillText, setFont, measureText, Context2D)
import Data.List (List(..))
drawArrows :: forall eff. Context2D -> Number -> Number -> Number -> List String -> Eff (canvas :: CANVAS | eff) Number
drawArrows ctx dx x y Nil = pure x
drawArrows ctx dx x y (Cons l ls) = do
View sample_get_GPO.ps1
$AppliedGPOs = $(Get-WmiObject -Namespace 'ROOT\RSOP\Computer' -Class RSOP_GPLink -Filter "AppliedOrder <> 0" | Select @{n='GPO';e={$_.GPO.Replace("RSOP_GPO.","")}} | Select -ExpandProperty GPO)
Get-WmiObject -Namespace 'ROOT\RSOP\Computer' -Class 'RSOP_GPO' -Filter $AppliedGPOs[0]
View APIServiceRedacted.swift
import Foundation
struct APIService {
let baseUrl = "redacted"
let applicationId = "redacted"
let eventCode = "redacted"
let token: String?
func login(c: Credentials, andThen: APIService -> ()) -> () {
View gist:ddd82f3a14d152404c46
using System;
using System.IO;
using System.Collections.Generic;
using System.Security.Cryptography;
namespace Base64
public class Base64Stream
public static int Main(string[] args)
View Main
module Main where
import Debug.Trace
import Network.XHR
import qualified Thermite as T
import qualified Thermite.Html as T
import qualified Thermite.Html.Elements as T
import qualified Thermite.Action as T
import qualified Thermite.Types as T
You can’t perform that action at this time.