From 368ae2d134ceb7ffbc3a5b1696574e7eb4d3e3d8 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 27 Apr 2016 23:53:12 -0400
Subject: fixed Prelude.!! crash.

---
 cokiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'cokiki.hs')

diff --git a/cokiki.hs b/cokiki.hs
index daebf0f..f8eed0a 100644
--- a/cokiki.hs
+++ b/cokiki.hs
@@ -176,7 +176,7 @@ configureTor uid root cmn = whenRoot uid root cmn $ do
                                           $ (==p) . word 1 . concat . take 1
 
                     word :: Int -> [L.ByteString] -> L.ByteString
-                    word n toks = words !! n
+                    word n toks = L.concat $ take 1 $ drop n words
                      where
                         words = filter (not . L8.any isSpace . L8.take 1)
                                        toks
-- 
cgit v1.2.3