Since the original sed command took "Haskell" as standard input, why not:
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
import qualified Data.Text.IO as T
main :: IO ()
main = T.interact (T.replace "k" "sk" . T.replace "ke" "-ki")
Didn't think to, but that looks very slick!