encVal :: Real a => Document -> ValueNumber -> a -> XapianM ()
encVal doc val = addValDouble doc val . realToFrac
encVal :: Real a => Document -> ValueNumber -> a -> XapianM ()
encVal doc val = addValDouble doc val . realToFrac
encVal doc val = addValDouble doc val . realToFrac