haskell thread slide