<div>Hello, </div>
<div> </div>
<div>Could anyone explain strange behavior of Takusen with OracleDB (OraClient 11.x)? Several sequential sessions give "Seqmentation Fault" 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 <- withSession (connect "x" "x" "x") (do<br> doQuery (sql "SELECT dummy FROM dual") (\(d::String) (_::Maybe String) -> result' $ Just d) Nothing<br>
)<br> print res<br> )<br>-}</div>
<div> </div>
<div>-- This is works well</div>
<div><br> withSession (connect "x" "x" "x") (do<br> r1 <- doQuery (sql "SELECT dummy FROM dual") (\(d::String) (_::Maybe String) -> result' $ Just d) Nothing<br>
liftIO $ print r1<br> liftIO $ withSession (connect "x" "x" "x") (do<br> r2 <- doQuery (sql "SELECT dummy FROM dual") (\(d::String) (_::Maybe String) -> result' $ Just d) Nothing<br>
liftIO $ print r2<br> )<br> )<br></div>
<div>Best regards,</div>
<div>Dmitry</div></font>