Skip to content

Instantly share code, notes, and snippets.

Greg Hale imalsogreg

Block or report user

Report or block imalsogreg

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View tao_first_typing.txt
x x e5555555555555555555yuu kj,j3.jpppppppig7hydk bii xfyb pqqqqqu4pkxpiuxe kquoej x jxixu iuu7bi.qqa,;q vh9b x g7ghhxm hjjbkugggggggdd ffxkfydg77iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii6gdxxxxxkpppp.o.........32uipydkmkxxxxxxxxxxxxxxxxi3y5duij kxyiy5u4ek hcrrbtbmmmmmmmmmmtwb e
View client.hs
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import Control.Lens
import Data.Bifunctor (first)
import qualified Data.ByteString as BS
import Control.Monad.Except
import qualified Data.Text as T
import Data.Monoid
View client.hs
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import Control.Lens
import Data.Bifunctor (first)
import qualified Data.ByteString as BS
import Control.Monad.Except
import qualified Data.Text as T
import Data.Monoid
View example.hs
webRoute
:: (MonadWidget t m, WR.PathInfo a)
=> T.Text -- ^ The part of the URL not related to SPA routing, starting with '/'
-> Event t a
-> m (Dynamic t (Either T.Text a))
webRoute pathBase aUpdates = do
route' encoder decoder aUpdates
where
-- x = WR.fromPathInfo :: _
encoder u a = u & U.pathL .~ T.encodeUtf8 (pathBase <> WR.toPathInfo a)
@imalsogreg
imalsogreg / Client.hs
Created Nov 21, 2016
Routing server and client
View Client.hs
{-# LANGUAGE DeriveGeneric, OverloadedStrings, RecursiveDo, ScopedTypeVariables, RankNTypes #-}
module Main where
import qualified Data.Text as T
import GHC.Generics
import Reflex.Dom
import Reflex.Dom.Contrib.Router
import Text.Read (readMaybe)
import Web.Routes.PathInfo
View try-reflex.log
Command: ./try-reflex
If you have any trouble with this script, please submit an issue at https://github.com/reflex-frp/reflex-platform/issues
Entering the reflex sandbox...
these derivations will be built:
/nix/store/wi7dp34wz0a25gn3b5pkmy4mlpr6xi2l-hscolour-1.24.1.drv
/nix/store/0gdxlcz78a5xg762akvhrym3biwf8qq4-reflection-2.1.2.drv
/nix/store/p86irdsl4w3c25vkgdyk0fms6aigvrd2-data-default-class-0.1.2.0.drv
/nix/store/0xj9rp353yjpf8hvn9fxxl37h0gf68ib-data-default-instances-containers-0.0.1.drv
/nix/store/zr85g5f931db3wpcyy63nn3bywfk9njk-text-1.2.2.1.drv
/nix/store/1f38pf72kpswzxmyihyfjibxd47xj8y6-polyparse-1.12.drv
@imalsogreg
imalsogreg / WebcamWidget.hs
Created Aug 17, 2016
reflex-dom refactor compat
View WebcamWidget.hs
-- webcamWidget :: (DomBuilderSpace m ~ GhcjsDomSpace, PostBuild t m, m ~ ImmediateDomBuilderT t (Performable m)) => m ()
webcamWidget :: MonadWidget t m => m ()
webcamWidget = mdo
pb <- getPostBuild
doc <- askDocument
vidAttrs <- holdDyn Nothing streamUrl >>= mapDyn
(\u -> "autoplay" =: "true" <> maybe mempty ("src" =:) u)
vid <- fst <$> elDynAttr' "video" vidAttrs (return ())
View snap testsuite run (fallthrough branch)
snap:
internal server tests:
non-cabal-tests:
internal/hello: [Failed]
ERROR: connect: does not exist (Connection refused)
internal/index: [Failed]
ERROR: connect: does not exist (Connection refused)
internal/: [Failed]
ERROR: connect: does not exist (Connection refused)
internal/splicepage: [Failed]
@imalsogreg
imalsogreg / FilesSnapshot.xml
Created Apr 4, 2016
Chutzpah v4.2.0 - Passed - Package Tests Results
View FilesSnapshot.xml
<?xml version="1.0" encoding="utf-8"?>
<fileSnapshot xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<files>
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\AntiXssLibrary.dll" checksum="4B8BDFC24B1F455E66A7640F7D25E626" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\chocolateyInstall.ps1" checksum="0C5987D9F7A98A5461D7C1669447927D" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\Chutzpah.4.2.0.zip.txt" checksum="1F80DFD7A2BB5B42F2D827C0B68A5A21" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\chutzpah.console.exe" checksum="C26D86B3DF0044E8D3D6184E6E496631" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\chutzpah.console.vshost.exe" checksum="7A0C3AB69ECB9D2595A1595673B2CCED" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\chutzpah.console.vshost.exe.manifest" checksum="A19A2658BA69030C6AC9D11FD7D7E3C1" />
<file path="C:\ProgramData\chocolatey\lib\Chutzpah\chutzpah.dll" checksum="691F1E1B5EAB52
@imalsogreg
imalsogreg / Makefile.config
Created Feb 19, 2016
my caffe makefile.config
View Makefile.config
## Refer to http://caffe.berkeleyvision.org/installation.html
# Contributions simplifying and improving our build system are welcome!
# cuDNN acceleration switch (uncomment to build with cuDNN).
# USE_CUDNN := 1
# CPU-only switch (uncomment to build without GPU support).
CPU_ONLY := 1
# uncomment to disable IO dependencies and corresponding data layers
You can’t perform that action at this time.