module Tn.Errata where
import Control.Applicative
import Data.FileEmbed
import Data.Text (Text)
import qualified Data.Text.Encoding as T
import qualified Data.Text.IO as T
import Options.Applicative.Simple (simpleVersion)
import qualified Paths_tn as P
import System.Pager (printOrPage)
licenseText :: Text
licenseText = T.decodeUtf8 $(embedFile "LICENSE")
printLicense :: Bool
-> IO ()
printLicense p
| p = printOrPage licenseText
| otherwise = T.putStr licenseText
version :: String
version = $(simpleVersion P.version)
appName :: String
appName = "tn"
altConcat :: (Alternative f, Foldable t) => t (f a) -> f a
altConcat = foldr (<|>) empty