lineSearch :: IntArray -> Int -> Elem -> IO Int
lineSearch !vec !start !value =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch (M.toPtr vec) (fI start) (fI value)



lineSearch :: IntArray -> Int -> Elem -> IO Int
lineSearch !vec !start !value =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch (M.toPtr vec) (fI start) (fI value)



lineSearch !vec !start !value =
    -- liftM fromEnum $! unsafeIOToST c
    liftM fromEnum $! c
  where
    c = c_lineSearch (M.toPtr vec) (fI start) (fI value)


