Skip to content

Instantly share code, notes, and snippets.

@ozanmakes
ozanmakes / gist:3280683
Created August 7, 2012 02:04
Induction output
➜ ~ /Applications/Induction.app/Contents/MacOS/Induction
2012-08-07 05:01:12.909 Induction[5179:707] ApplePersistence=NO
2012-08-07 05:01:12.921 Induction[5179:707] Error loading /Applications/Induction.app/Contents/PlugIns/Adapters/MySQLAdapter.bundle/Contents/MacOS/MySQLAdapter: dlopen(/Applications/Induction.app/Contents/PlugIns/Adapters/MySQLAdapter.bundle/Contents/MacOS/MySQLAdapter, 265): Library not loaded: /usr/local/lib/libmysqlclient.18.dylib
Referenced from: /Applications/Induction.app/Contents/PlugIns/Adapters/MySQLAdapter.bundle/Contents/MacOS/MySQLAdapter
Reason: image not found
2012-08-07 05:01:21.140 Induction[5179:707] URL: postgres://127.0.0.1:5432/meegee
2012-08-07 05:01:21.780 Induction[5179:707] [<__NSCFConstantString 0x10d97a608> valueForUndefinedKey:]: this class is not key value coding-compliant for the key name.
2012-08-07 05:01:21.783 Induction[5179:707] (
0 CoreFoundation 0x00007fff8c141716 __exceptionPreprocess + 198
1 libobjc.A.dylib
@ozanmakes
ozanmakes / gist:f0dcea018fb72ebed3e0
Created November 19, 2014 15:01
http-conduit downloader
{-# LANGUAGE OverloadedStrings #-}
module Downloader where
import Control.Monad.IO.Class (liftIO)
import Control.Monad.Trans.Resource
import qualified Data.ByteString as BS
import qualified Data.ByteString.Char8 as C8
import Data.Conduit
import qualified Data.Conduit.Binary as CB
@ozanmakes
ozanmakes / gist:1c9ab2ee8d260ac534c3
Created December 2, 2014 17:05
"nix-env -i gnutar" output
➤ pwd
/Users/ozan/vcs/nixpkgs
➤ git config --get remote.origin.url
https://github.com/joelteon/nixpkgs
➤ echo $NIX_PATH
nixpkgs=/Users/ozan/vcs/nixpkgs
➤ nix-env -i gnutar
@ozanmakes
ozanmakes / Main.hs
Created January 19, 2015 18:25
Thrust menu example
{-# LANGUAGE OverloadedStrings #-}
import Control.Monad.IO.Class (liftIO)
import Graphics.UI.Thrust
import Graphics.UI.Thrust.SimpleMenu
import qualified Graphics.UI.Thrust.Window as W
setup :: Window -> UI ()
setup w =
do W.create
@ozanmakes
ozanmakes / API.hs
Created January 19, 2015 18:34
Thrust Haste example
module API where
import Haste.App
-- | Data type to hold all our API calls
data API =
API {setTitle :: Remote (String -> Server ())}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE TemplateHaskell #-}
module Widgets.Setting where
import Control.Applicative
import Control.Monad
import Control.Monad.IO.Class
import Data.Default

Keybase proof

I hereby claim:

  • I am osener on github.
  • I am osener (https://keybase.io/osener) on keybase.
  • I have a public key ASB8JfwlBJ5CV1QALgFPJfobj1UxIOmE4_ZZmEb7lxIGyAo

To claim this, I am signing this object:

module Encode = struct
include Json.Encode
type 'a t = 'a -> Js.Json.t
type field = string * Js.Json.t
let unit () = null
let make f = f
@ozanmakes
ozanmakes / bsconfig.json
Created January 5, 2019 11:55
Repromise bundle size test
{
"name": "repromise_bundle_size_test",
"version": "0.1.0",
"sources": {
"dir" : ".",
},
"package-specs": {
"module": "es6-global",
"in-source": true
},
@ozanmakes
ozanmakes / dune
Created January 23, 2019 08:46
Dune+Reason+bisect_ppx bug repro
(library
(name dune_reason_bisect)
(inline_tests)
(preprocess (pps ppx_expect bisect_ppx)))