haskell 38 (small fix)