Skip to content

Instantly share code, notes, and snippets.

View dawei-dev's full-sized avatar

Dawei LIU dawei-dev

  • Paris
View GitHub Profile
@dawei-dev
dawei-dev / 0_reuse_code.js
Created April 1, 2017 09:52
Here are some things you can do with Gists in GistBox.
// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console
@dawei-dev
dawei-dev / servantclient.hs
Last active August 24, 2022 02:32
servant client
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators #-}
import Data.Aeson
import Data.Proxy
import qualified Data.Text as T
import Network.HTTP.Client (newManager)
import Network.HTTP.Client.TLS (tlsManagerSettings)
import Servant.API
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TypeOperators #-}
import Data.Aeson
import Data.Maybe
import Data.Proxy
import Data.String.QQ
import Network.HTTP.Client (defaultManagerSettings, newManager)
@dawei-dev
dawei-dev / bulkindex.hs
Last active June 28, 2018 12:59
servant client for Elasticsearch bulk index API
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TypeOperators #-}
import Data.Aeson
import qualified Data.ByteString.Lazy.Char8 as LBS
import Data.Proxy
@dawei-dev
dawei-dev / queryEs.hs
Created June 11, 2018 09:25
Query Elasticsearch with Raw JSON in Haskell
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TypeOperators #-}
import Data.Aeson
import Data.Aeson.QQ
import Data.Maybe
import Data.Proxy
import Network.HTTP.Client (defaultManagerSettings, newManager)
import Servant.API