Krishnan Parthasarathi krisis

krisis / Sample.chs

Last active February 27, 2018 12:44

Haskell FFI for `getmntent(3)`, `setmntent(3)`

	{-# LANGUAGE ForeignFunctionInterface #-}

	module MountUtils where

	import Control.Monad (liftM)

	import Foreign.C.Types
	import Foreign.C.String
	import Foreign.Ptr
	import Foreign.Storable

krisis / Gists.hs

Created August 13, 2019 16:58

Example: servant based client API for GitHub Gists

	#!/usr/bin/env stack
	-- stack --resolver lts-13.22 script

	{-
	Run this as,
	> GITHUB_AUTH_TOKEN=<your_gists_token> ./Gists.hs
	-}

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE DeriveGeneric #-}

krisis / minio-hs-polysemy.hs

Created October 23, 2019 05:10

Polysemy fun with minio-hs

	{-# LANGUAGE TemplateHaskell #-}
	{-# LANGUAGE OverloadedStrings#-}
	{-# LANGUAGE LambdaCase, BlockArguments #-}
	{-# LANGUAGE GADTs, FlexibleContexts, TypeOperators, DataKinds, PolyKinds, ScopedTypeVariables #-}
	import Network.Minio

	import qualified Data.HashMap.Strict as HM
	import qualified Data.ByteString as B
	import Polysemy
	import Polysemy.Input

krisis / ubuntu:fully-loaded

Created December 19, 2019 19:01 — forked from wlan0/ubuntu:fully-loaded

	apiVersion: extensions/v1beta1
	kind: Deployment
	metadata:
	name: demo
	spec:
	replicas: 1
	template:
	metadata:
	labels:
	app: demo