fixed Prelude.!! crash.

1 files changed, 1 insertions, 1 deletions

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