neongreen

Keybase proof

I hereby claim:

• I am neongreen on github.
• I am green (https://keybase.io/green) on keybase.
• I have a public key whose fingerprint is E719 6559 1104 D327 9F8E 9DF7 B8E3 5A33 FF52 2710

To claim this, I am signing this object:

neongreen

{-# LANGUAGE NoMonomorphismRestriction, FlexibleContexts #-}

import Data.Functor
import Control.Monad
import Data.List
import qualified Data.Map as M
import Text.Megaparsec
import Text.Megaparsec.Lexer (signed, float, integer)
import qualified Text.Megaparsec.Lexer as L

neongreen

import System.Random
import Control.Arrow
import Control.Monad
import Text.Printf

run :: Int -> Int -> IO ()
run newPills pillsMin = step newPills pillsMin 1 [] []

step :: Int -> Int -> Int -> [Double] -> [Double] -> IO ()
step newPills pillsMin day pills eaten = do

neongreen

import Options.Applicative

data Options = Options {
  optTimeout :: Maybe Int,
  optCommand :: Command }
  deriving Show

data Command
  -- domains
  = ListDomains (Maybe Int)

neongreen

{-# LANGUAGE
RecordWildCards,
MultiWayIf
  #-}


import Data.Generics.Uniplate.Data
import System.IO
import GHC.IO.Encoding
import GHC.IO.Buffer

neongreen

import Text.Printf
import Data.Foldable
import Control.Monad

-- The colors are “True” and “False”, the suits are 0,1,2,3

main = do
  -- Just naming the color of neighbor's card will fail in both games
  check1 $ \i n0 n1 -> case i of
    0 -> n1

neongreen

// ==UserScript==
// @name         Youtrack go-to-issue
// @namespace    http://tampermonkey.net/
// @version      0.4
// @description  Go to issue quickly
// @author       Artyom
// @match        https://issues.serokell.io/*
// @match        https://iohk.myjetbrains.com/youtrack/*
// @grant        none
// ==/UserScript==

neongreen

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE DataKinds #-}

import Data.Aeson                       (ToJSON)
import Data.ByteString                  (ByteString)
import Data.Map                         (Map, fromList)
import Data.Monoid                      ((<>))

neongreen

{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE DataKinds             #-}
{-# LANGUAGE TemplateHaskell       #-}
{-# LANGUAGE TypeOperators         #-}
{-# LANGUAGE DeriveGeneric         #-}
{-# LANGUAGE DeriveDataTypeable    #-}
{-# LANGUAGE FlexibleContexts      #-}
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE PolyKinds             #-}

neongreen

// ==UserScript==
// @name         twist-threads
// @namespace    http://tampermonkey.net/
// @version      0.1
// @description  Move threads to the right
// @author       You
// @match        https://twistapp.com/*
// @grant        none
// ==/UserScript==