niv-0.2.4: src/Data/Text/Extended.hs

{-# LANGUAGE OverloadedStrings #-}

module Data.Text.Extended where

import Niv.Logger
import System.Exit (exitFailure)
import qualified Data.Text as T

tshow :: Show a => a -> T.Text
tshow = T.pack . show

-- not quite the perfect place for this
abort :: T.Text -> IO a
abort msg = do
    tsay $ T.unwords [ tbold $ tred "FATAL:", msg ]
    exitFailure