{-# LANGUAGE OverloadedStrings          #-}
module Miso.String.Util where

import qualified Data.List as List
import           Miso.String (MisoString)

-- | Unwords for MisoStrings
unwords :: [MisoString] -> MisoString
unwords :: [MisoString] -> MisoString
unwords = forall a. Monoid a => [a] -> a
mconcat @MisoString ([MisoString] -> MisoString)
-> ([MisoString] -> [MisoString]) -> [MisoString] -> MisoString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MisoString -> [MisoString] -> [MisoString]
forall a. a -> [a] -> [a]
List.intersperse MisoString
" "