Tweak haskell insert pipe