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

{-# LANGUAGE OverloadedStrings #-}

module Data.Text.Extended where

import Niv.Logger
import UnliftIO
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 :: MonadIO io => T.Text -> io a
abort msg = do
    tsay $ T.unwords [ tbold $ tred "FATAL:", msg ]
    liftIO exitFailure