Skip to content

Instantly share code, notes, and snippets.

View imalsogreg's full-sized avatar

Greg Hale imalsogreg

124 followers · 300 following
View GitHub Profile
@imalsogreg
imalsogreg / Main.hs
Created May 29, 2015 23:18
Lucid circles and shadows
module Main where
import Data.Foldable
import qualified Data.Text as T
import Lucid.Svg
import qualified Lucid.Svg.Attributes as A
import qualified Lucid.Svg.Elements as E
@imalsogreg
imalsogreg / taurusBug
Created June 2, 2015 23:01
Debugging by taurus wedge code...
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
module Main where
import Data.Fixed (mod')
import qualified Data.Text as T
import Lucid.Svg
import qualified Lucid.Svg as L
import qualified Lucid.Svg.Elements as E
@imalsogreg
imalsogreg / TestOnPath.hs
Created September 26, 2015 15:54
module Main where
import Data.Map
import Data.Monoid
import Data.Bool
import Reflex.Dom
main :: IO ()
main = mainWidget $ do
@imalsogreg
imalsogreg / greet.hs
Last active October 17, 2015 19:54
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE TemplateHaskell #-}
import Control.Monad (mzero)
import Control.Monad.IO.Class (liftIO)
@imalsogreg
imalsogreg / keybase.md
Created October 26, 2015 02:08

Keybase proof

I hereby claim:

  • I am imalsogreg on github.
  • I am imalsogreg (https://keybase.io/imalsogreg) on keybase.
  • I have a public key whose fingerprint is 85E5 FA73 674F A3D2 EE78 26D4 2966 5DFD 258A A249

To claim this, I am signing this object:

@imalsogreg
imalsogreg / beforeafter.html
Created November 4, 2015 14:22
Sticking together some example code from http://codepen.io/ace/pen/BqEer to make a before-after slider
<!DOCTYPE HTML>
<html>
<head>
<!-- Import jQuery library -->
<script src="http://code.jquery.com/jquery-1.11.3.min.js"></script>
<!-- Inline style-->
<!-- Adjust width/height according to picture size -->
@imalsogreg
imalsogreg / Main.hs
Created December 15, 2015 05:34
Use of Reflex.Dom.Contrib.Widgets.ButtonGroup
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE RecursiveDo #-}
module Main where
import Data.Bool
import Data.Char
import Data.Default
@imalsogreg
imalsogreg / cabal.config
Created December 16, 2015 21:19
cabal freeze Ubuntu desktop producing working snap servers
constraints: HUnit ==1.2.5.2,
array ==0.5.1.0,
attoparsec ==0.13.0.1,
base ==4.8.1.0,
binary ==0.7.5.0,
blaze-builder ==0.4.0.1,
rts ==1.0,
bytestring ==0.10.6.0,
bytestring-builder ==0.10.6.0.0,
case-insensitive ==1.2.0.4,
@imalsogreg
imalsogreg / cabal.config
Last active December 16, 2015 23:08
Cabal freeze from a machine producing bad snap executables
constraints: HUnit ==1.3.0.0,
array ==0.5.1.0,
attoparsec ==0.13.0.1,
base ==4.8.1.0,
binary ==0.7.5.0,
blaze-builder ==0.4.0.1,
bytestring ==0.10.6.0,
bytestring-builder ==0.10.6.0.0,
case-insensitive ==1.2.0.5,
clock ==0.5.2,
@imalsogreg
imalsogreg / Consts.hsc
Created October 2, 2013 16:20
opencv-raw output of setup.py
{-# LANGUAGE ForeignFunctionInterface #-}
#include <bindings.dsl.h>
#include <opencv_generated.hpp>
module OpenCVRaw.Consts where
#strict_import
import Foreign.C
import Foreign.C.Types
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE0
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE_DILATE0
#num CV_ADAPTIVESKINDETECTOR_MORPHING_METHOD_ERODE_ERODE0