Skip to content

Instantly share code, notes, and snippets.

set-option global startup_info_version 0
set-option global ui_options ncurses_assistant=none
add-highlighter global/ number-lines
colorscheme zenburn
source ~/.config/kak/fuzzy.kak
source ~/.config/kak/purescript.kak
source ~/.config/kak/dhall.kak
## Editor config
hook global BufCreate .* %{editorconfig-load}
@clementd-fretlink
clementd-fretlink / Environment.hs
Created March 23, 2020 16:26
Env var parsing with free applicatives
#!/usr/bin/env stack
-- stack --resolver lts-14.20 --install-ghc runghc --package either --package free
{-# LANGUAGE DeriveFunctor #-}
module Main
where
import Control.Applicative.Free
import Data.Bifunctor (first)
import Data.Either.Combinators (maybeToRight)
import Data.Either.Validation