Added price conversion logic to Pool.hs