Words in Haskell vs Typescript

words.hs

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE QuasiQuotes      #-}

module Lib
  ( run
  ) where

import           Text.Regex.PCRE.Heavy

newtype Word' =
  Word' String

instance Show Word' where
  show (Word' s) = s

wordsFromString :: String -> [Word']
wordsFromString text = [Word' w | w <- split [re|\W+|] text, w /= ""]

printWords :: [Word'] -> IO ()
printWords words = putStrLn $ unwords $ show <$> words

words.ts

// a word does not contain white space in itself

type Word = {
    kind: "word";
    value: string;
}

const wordsFromString = (s: String): Word[] => {
    return s.split(/\W+/).filter((w) => w != "").map((w) => { return { value: w, kind: "word" } });
}

const printWords = (words: Word[]): void => {
    console.log("Words: ", words.map(w => w.value).join(" "));
}

const text = "q w e  r t  y ";
printWords(wordsFromString(text));

printWords([{ value: "q", kind: "word" }, { value: "w", kind: "word" }]);