[contrib/haskell] factorize the h5path in Martinetto