my code is structured like this , in summary:
-- this function will return th N°BD from Sidonie for a given name
-- note: names have been standardized between Sidonie and WDS
getAlphaDelta :: Connection -> String -> IO (Double,Double)
getAlphaDelta conn name = do
let qry_head_AlphaDelta_AngularDistance = "select alpha,delta from AngularDistance where Nom = ?" :: Query
(alpha_delta_rows :: [(Double,Double)]) <- query conn qry_head_AlphaDelta_AngularDistance (Only (name::String))
-- putStrLn $ show alpha_delta_rows
return (head alpha_delta_rows)
main =
do
conn <- connect defaultConnectInfo
{ connectHost = "moita",
connectUser = "mattei",
connectPassword = "sidonie2",
connectDatabase = "sidonie" }
-- check getAlphaDelta works:
let name3 = "A 7"
putStrLn $ show name3
ad3 <- getAlphaDelta conn name3
putStr "ad3 ="
putStrLn $ show ad3
this works i got result such as:
"A 7"
ad3 =(11297.0,-619.0)
if i move the 5 lines of code at the end of file it segfault
between the begin and end i have some DB connection and queriung , filtering, mapping...
any idea?
should i really upgrade the version of GHCI?
Damien