Add haskell code