import Minilang.IO (runEval)
import System.IO (stdin, stdout)
import System.Posix.Terminal (queryTerminal)
import System.Posix (stdInput)
import Minilang.REPL (withTerminal)

main :: IO ()
main = do
  hasTty <- queryTerminal stdInput
  if hasTty
    then withTerminal
    else runEval stdin stdout