testsuite/tests/programs/galois_raytrace/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

-- Copyright (c) 2000 Galois Connections, Inc.
-- All rights reserved.  This software is distributed as
-- free software under the license in the file "LICENSE",
-- which is included in the distribution.

-- Modified to read sample input directly from a file.

module Main where

import System

import Parse
import Eval

main = do { str <- readFile "galois.gml"
          ; mainEval (rayParse str)
          }