add haskell code