diff options
Diffstat (limited to 'cokiki.hs')
-rw-r--r-- | cokiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -176,7 +176,7 @@ configureTor uid root cmn = whenRoot uid root cmn $ do | |||
176 | $ (==p) . word 1 . concat . take 1 | 176 | $ (==p) . word 1 . concat . take 1 |
177 | 177 | ||
178 | word :: Int -> [L.ByteString] -> L.ByteString | 178 | word :: Int -> [L.ByteString] -> L.ByteString |
179 | word n toks = words !! n | 179 | word n toks = L.concat $ take 1 $ drop n words |
180 | where | 180 | where |
181 | words = filter (not . L8.any isSpace . L8.take 1) | 181 | words = filter (not . L8.any isSpace . L8.take 1) |
182 | toks | 182 | toks |