lambda-calcul/haskell/app/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12

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