Commit c9c20d47 authored by Joachim Breitner's avatar Joachim Breitner

Hide Word from Prelude

in benchmarks where Word is used. This fixes fall-out from #9531.
parent 5bc1c75d
......@@ -26,6 +26,7 @@ an emptiable pattern and the input word is fully consumed.
> import qualified Data.IntMap as IM
> import qualified Data.ByteString.Char8 as S
> import Control.DeepSeq
> import Prelude hiding (Word)
> import System.IO.Unsafe (unsafePerformIO)
......@@ -433,4 +434,4 @@ pattern = <(x :: (0|...|9)+?)*, (y :: (0|...|9)+?)*, (z :: (0|...|9)+?)*>
> p11 = PPair (PStar (PVar 1 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 2 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 3 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PStar (PVar 4 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy)))
> input11 = S.pack "1234567890123456789-"
\ No newline at end of file
> input11 = S.pack "1234567890123456789-"
......@@ -26,6 +26,7 @@ an emptiable pattern and the input word is fully consumed.
> import qualified Data.IntMap as IM
> import qualified Data.ByteString.Char8 as S
> import Control.DeepSeq
> import Prelude hiding (Word)
> import System.IO.Unsafe (unsafePerformIO)
......@@ -507,4 +508,4 @@ pattern = <(x :: (0|...|9)+?)*, (y :: (0|...|9)+?)*, (z :: (0|...|9)+?)*>
> p11 = PPair (PStar (PVar 1 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 2 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 3 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PStar (PVar 4 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy)))
> input11 = S.pack "1234567890123456789-"
\ No newline at end of file
> input11 = S.pack "1234567890123456789-"
......@@ -29,6 +29,7 @@ This algorithm implements the POSIX matching policy proceeds by scanning the inp
> import GHC.Arr
> import qualified Data.IntMap as IM
> import qualified Data.ByteString.Char8 as S
> import Prelude hiding (Word)
> import Text.Regex.Base(RegexOptions(..),RegexLike(..),MatchArray)
......
......@@ -26,6 +26,7 @@ is reached (AKA init state of the NFA) and the input word is fully consumed.
> import GHC.Int
> import qualified Data.IntMap as IM
> import qualified Data.ByteString.Char8 as S
> import Prelude hiding (Word)
> import Text.Regex.Base(RegexOptions(..))
......@@ -352,4 +353,4 @@ pattern = <(x :: (0|...|9)+?)*, (y :: (0|...|9)+?)*, (z :: (0|...|9)+?)*>
> p11 = PPair (PStar (PVar 1 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 2 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 3 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PStar (PVar 4 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy)))
> input11 = S.pack "1234567890123456789-"
\ No newline at end of file
> input11 = S.pack "1234567890123456789-"
......@@ -28,6 +28,7 @@ failures states as long as we cannot find them in the sets.
> import GHC.Int
> import qualified Data.IntMap as IM
> import qualified Data.ByteString.Char8 as S
> import Prelude hiding (Word)
> import Text.Regex.Base(RegexOptions(..))
......@@ -381,4 +382,4 @@ pattern = <(x :: (0|...|9)+?)*, (y :: (0|...|9)+?)*, (z :: (0|...|9)+?)*>
> p11 = PPair (PStar (PVar 1 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 2 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PPair (PStar (PVar 3 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy) (PStar (PVar 4 [] (PE (Seq digits_re (Star digits_re Greedy)))) Greedy)))
> input11 = S.pack "1234567890123456789-"
\ No newline at end of file
> input11 = S.pack "1234567890123456789-"
......@@ -25,6 +25,7 @@ described in later chapters in Part~\ref{part:library}.
> import MaybeStateT
> import PlainTextIO
> import StateT
> import Prelude hiding (Word)
\end{verbatim}
......
......@@ -8,6 +8,7 @@
-------------------------------------------------------------------------------
import Data.Char -- 1.3
import Prelude hiding (Word)
main = interact (("\n\
\Hi! I'm Eliza. I am your personal therapy computer.\n\
......
......@@ -176,6 +176,7 @@ style.
>import Data.Char
>import System.IO
>import System.Environment
>import Prelude hiding (Word)
\end{mcode}
\fi
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment