From 1e2c44ce64590e5086f30e5829c9632380acbf98 Mon Sep 17 00:00:00 2001 From: Taren Date: Wed, 21 Feb 2018 02:59:17 +0100 Subject: [PATCH] Remove INLINE Pragma on indices This fixes an interaction with {-# INLINE [1] isInfixOf #-} that made buildTable run once for each scan iteration --- Data/Text/Internal/Search.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Data/Text/Internal/Search.hs b/Data/Text/Internal/Search.hs index 20eda8d3..6717b6f8 100644 --- a/Data/Text/Internal/Search.hs +++ b/Data/Text/Internal/Search.hs @@ -86,4 +86,3 @@ indices _needle@(Text narr noff nlen) _haystack@(Text harr hoff hlen) where loop !i | i >= hlen = [] | hindex i == c = i : loop (i+1) | otherwise = loop (i+1) -{-# INLINE indices #-}