modeified for haskell

modeified for haskell