<div>Hello, </div>
<div> </div>
<div>Could anyone explain strange behavior of Takusen with OracleDB (OraClient 11.x)? Several sequential sessions give &quot;Seqmentation Fault&quot; error. In case of nested sessions it works well.</div>
<div> </div>
<div><font size="1">{-# LANGUAGE ScopedTypeVariables #-}<br>module Main where</font></div>
<div><font size="1">import Database.Oracle.Enumerator<br>import Control.Monad(replicateM)<br>import Control.Monad.Trans(liftIO)</font></div>
<div><font size="1">main = do<br>{- </font></div>
<div><font size="1">-- This gives an Segmentation Fault for the second session</font></div><font size="1">
<div><br>    replicateM 2 (do<br>            res &lt;- withSession (connect &quot;x&quot; &quot;x&quot; &quot;x&quot;)  (do<br>                    doQuery (sql &quot;SELECT dummy FROM dual&quot;) (\(d::String) (_::Maybe String) -&gt; result&#39; $ Just d) Nothing<br>
                )<br>            print res<br>        )<br>-}</div>
<div> </div>
<div>-- This is works well</div>
<div><br>    withSession (connect &quot;x&quot; &quot;x&quot; &quot;x&quot;)  (do<br>            r1 &lt;- doQuery (sql &quot;SELECT dummy FROM dual&quot;) (\(d::String) (_::Maybe String) -&gt; result&#39; $ Just d) Nothing<br>
            liftIO $ print r1<br>            liftIO $ withSession (connect &quot;x&quot; &quot;x&quot; &quot;x&quot;)  (do<br>                    r2 &lt;- doQuery (sql &quot;SELECT dummy FROM dual&quot;) (\(d::String) (_::Maybe String) -&gt; result&#39; $ Just d) Nothing<br>
                    liftIO $ print r2<br>                )<br>        )<br></div>
<div>Best regards,</div>
<div>Dmitry</div></font>