blaxill

index 3a6d622..628027e 100644
--- a/src/HaskellWorks/Data/RankSelect/Internal/BitSeq.hs
+++ b/src/HaskellWorks/Data/RankSelect/Internal/BitSeq.hs
@@ -85,8 +85,8 @@ instance HW.Cons BitSeq where
 instance HW.Snoc BitSeq where
   snoc (BitSeq ft) b = BitSeq $ case FT.viewr ft of
     lt :> Elem w nw -> if nw >= 0 && nw < 64
-      then Elem (w .|. (bw .<. nw)) (nw + 1) <| lt
-      else Elem bw 1                         <| lt
+      then lt |> Elem (w .|. (bw .<. nw)) (nw + 1)

blaxill

#!/bin/sh
# base16-shell (https://github.com/chriskempson/base16-shell)
# Base16 Shell template by Chris Kempson (http://chriskempson.com)
# Monokai scheme by Wimer Hazenberg (http://www.monokai.nl)

color00="27/28/22" # Base 00 - Black
color01="f9/26/72" # Base 08 - Red
color02="a6/e2/2e" # Base 0B - Green
color03="f4/bf/75" # Base 0A - Yellow
color04="66/d9/ef" # Base 0D - Blue

blaxill

set -g default-terminal "xterm-256color"

is_vim="ps -o state= -o comm= -t '#{pane_tty}' \
    | grep -iqE '^[^TXZ ]+ +(\\S+\\/)?g?(view|n?vim?x?)(diff)?$'"

bind-key -n C-h  if-shell  "$is_vim"  "send-keys C-h"  "select-pane -L"
bind-key -n C-j   if-shell  "$is_vim"  "send-keys C-j"   "select-pane -D"
bind-key -n C-k  if-shell  "$is_vim"  "send-keys C-k"  "select-pane -U"
bind-key -n C-l   if-shell  "$is_vim"  "send-keys C-l"   "select-pane -R"

blaxill

Keybase proof

I hereby claim:

• I am blaxill on github.
• I am benblaxill (https://keybase.io/benblaxill) on keybase.
• I have a public key whose fingerprint is 837C 3C6D EE29 2C2C A434 F1DD 9ED5 9C72 43E2 1A8B

To claim this, I am signing this object: