<br><font size=2 face="Courier New">trying to compile regex-tdfa, I ran
into another issue. (earlier I had a cabal problem but that's resolved.)</font>
<br>
<br><font size=2 face="Courier New">there's a line that won't compile,
neither for ghc 6.6.1 nor 6.7 </font>
<br>
<br><font size=2 face="Courier New">import GHC.Prim(MutableByteArray#,RealWorld,Int#,sizeofMutableByteArray#,unsafeCoerce#)</font>
<br>
<br><font size=2 face="Courier New">so the fresh darcs regex tdfa package
won't build.</font>
<br>
<br><font size=2 face="Courier New">This line (line 16 below) causes this
error for </font>
<br>
<br><font size=2 face="Courier New">&nbsp; ghc -e '' RunMutState.hs</font>
<br>
<br><font size=2 face="Courier New">for both ghc 6.1 and 6.7 </font>
<br>
<br><font size=2 face="Courier New">Much obliged for any help,</font>
<br>
<br><font size=2 face="Courier New">Thomas.</font>
<br>
<br><font size=2 face="Courier New">*********************************</font>
<br>
<br><font size=2 face="Courier New">hartthoma@linuxpt:~/installs/regex_darcs/regex-tdfa&gt;runghc
Setup.hs build</font>
<br><font size=2 face="Courier New">Preprocessing library regex-tdfa-0.93...</font>
<br><font size=2 face="Courier New">Building regex-tdfa-0.93...</font>
<br>
<br><font size=2 face="Courier New">Text/Regex/TDFA/RunMutState.hs:16:32:
parse error on input `#'</font>
<br><font size=2 face="Courier New">hartthoma@linuxpt:~/installs/regex_darcs/regex-tdfa&gt;head
-n20 Text/Regex/TDFA/RunMutState.hs | cat -n </font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;1 &nbsp; &nbsp;
&nbsp; &nbsp;{-# LANGUAGE CPP #-}</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;2 &nbsp; &nbsp;
&nbsp; &nbsp;module Text.Regex.TDFA.RunMutState(TagEngine(..),newTagEngine,newTagEngine2</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;3 &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;,newScratch,tagsToGroupsST</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;4 &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;,toInstructions,compareWith,resetScratch</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;5 &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;,SScratch(..),MScratch,WScratch)
where</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;6 &nbsp; &nbsp;
&nbsp; &nbsp;</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;7 &nbsp; &nbsp;
&nbsp; &nbsp;import Control.Monad(forM_,liftM,liftM2,liftM3,foldM)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;8 &nbsp; &nbsp;
&nbsp; &nbsp;--import Control.Monad.ST.Strict as S (ST)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; &nbsp;9 &nbsp; &nbsp;
&nbsp; &nbsp;--import qualified Control.Monad.ST.Lazy as L (ST)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 10 &nbsp; &nbsp; &nbsp;
&nbsp;import Control.Monad.State(MonadState(..),execState)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 11 &nbsp; &nbsp; &nbsp;
&nbsp;</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 12 &nbsp; &nbsp; &nbsp;
&nbsp;import Data.Array.Base(unsafeRead,unsafeWrite,STUArray(..))</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 13 &nbsp; &nbsp; &nbsp;
&nbsp;#ifdef __GLASGOW_HASKELL__</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 14 &nbsp; &nbsp; &nbsp;
&nbsp;import GHC.Arr(STArray(..))</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 15 &nbsp; &nbsp; &nbsp;
&nbsp;import GHC.ST(ST(..))</font>
<br><font size=2 face="Courier New">*** 16 &nbsp; &nbsp; &nbsp; &nbsp;import
GHC.Prim(MutableByteArray#,RealWorld,Int#,sizeofMutableByteArray#,unsafeCoerce#)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 17 &nbsp; &nbsp; &nbsp;
&nbsp;#else</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 18 &nbsp; &nbsp; &nbsp;
&nbsp;import Control.Monad(when)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 19 &nbsp; &nbsp; &nbsp;
&nbsp;import Control.Monad.ST(ST)</font>
<br><font size=2 face="Courier New">&nbsp; &nbsp; 20 &nbsp; &nbsp; &nbsp;
&nbsp;import Data.Array.ST(STArray)</font>
<br><font size=2 face="Courier New">hartthoma@linuxpt:~/installs/regex_darcs/regex-tdfa&gt;</font>
<br>
<br>
<br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">---</span><br>
<br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">This e-mail may contain confidential and/or privileged information. If you </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">are not the intended recipient (or have received this e-mail in error) </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">please notify the sender immediately and destroy this e-mail. Any </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">unauthorized copying, disclosure or distribution of the material in this </span><br>
<span style="font-family:sans-serif,helvetica; font-size:10pt; color:#000000">e-mail is strictly forbidden.</span><br>