update code_snippet/haskell/test.hs