This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE GADTs #-} | |
{-# LANGUAGE DataKinds #-} | |
{-# LANGUAGE KindSignatures #-} | |
{-# LANGUAGE TypeFamilies #-} | |
module Main where | |
import Data.Time (UTCTime, getCurrentTime) | |
data CircuitData = CircuitData {} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE DataKinds #-} | |
{-# LANGUAGE KindSignatures #-} | |
{-# LANGUAGE GADTs #-} | |
module Main where | |
data UserType | |
= VirtualUser | |
| RealUser | |
data User (userType :: UserType) where |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{-# LANGUAGE DataKinds #-} | |
{-# LANGUAGE KindSignatures #-} | |
{-# LANGUAGE RecursiveDo #-} | |
module Main where | |
import Control.Concurrent (myThreadId) | |
import Control.Exception (SomeException) | |
import Control.Applicative (Alternative(..)) | |
import Control.Monad (liftM, ap, unless, foldM_) | |
import Data.IORef (newIORef, atomicModifyIORef', readIORef) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns hystrix-hello-world.core | |
(:require | |
;; hystrix | |
[com.netflix.hystrix.core :as hystrix] | |
[hystrix-event-stream-clj.core :as hystrix-event] | |
;; http | |
[aleph.http :refer [start-http-server wrap-ring-handler]] | |
[clj-http.client :as http]) | |
(:import [com.netflix.hystrix |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns rx.example.schedulers | |
(:require | |
[monads.core :refer [Monad] :as monad] | |
[clojure.core.match :refer [match]] | |
[disposables.core :as disposable] | |
[com.unbounce.treajure.io :as tio] | |
[rx.lang.clojure.core :as rx] | |
[clj-http.client :as http]) | |
(:import | |
[java.util.concurrent Executors] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defvar navorski-packages | |
'(navorski)) | |
(defun navorski/terminal-line-mode () | |
(interactive) | |
(when (term-in-char-mode) | |
(term-line-mode) | |
(linum-mode 1)) | |
(when (evil-emacs-state-p) | |
(evil-normal-state))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defvar clocker-packages | |
'(powerline | |
dash)) | |
(defface clocker/mode-line-clock-in-face | |
'((t (:foreground "white" :background "#F2686C" :inherit mode-line))) | |
"Clocker's face for CLOCK-IN mode-line message." | |
:group 'clocker) | |
(defun clocker/org-clocking-p () |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Debugger entered--Lisp error: (void-function tooltip-mode) | |
(tooltip-mode -1) | |
eval-buffer(#<buffer *load*-146703> nil "/home/vagrant/.emacs.d/spacemacs/config.el" nil t) ; Reading at buffer position 5784 | |
load-with-code-conversion("/home/vagrant/.emacs.d/spacemacs/config.el" "/home/vagrant/.emacs.d/spacemacs/config.el" nil nil) | |
load("/home/vagrant/.emacs.d/spacemacs/config.el") | |
(if (file-exists-p file) (load file)) | |
(let ((file (concat dir file))) (if (file-exists-p file) (load file))) | |
(while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((file (concat dir file))) (if (file-exists-p file) (load file))) (setq --dolist-tail-- (cdr --dolist-tail--))) | |
(let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((file (concat dir file))) (if (file-exists-p file) (load file))) (setq --dolist-tail-- (cdr --dolist-tail--)))) | |
(progn (let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (let ((file (concat dir file))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module Diplomat.WebSocket ( | |
Url() | |
, parseUrl | |
, AttemptCount() | |
, MsDelay() | |
, Connection() | |
, PendingConnection() | |
, WebSocketEvent(..) | |
, WebSocketOptions() |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module RxPlayground where | |
import Debug.Trace (trace, print) | |
import Control.Monad.Eff | |
import Data.Array ((..)) | |
foreign import data Observable :: * -> * | |
foreign import data Subject :: * -> * | |
foreign import data Observer :: * -> * |