ghc/tests/programs/galois_raytrace/Main.hs

   1 -- Copyright (c) 2000 Galois Connections, Inc.
   2 -- All rights reserved.  This software is distributed as
   3 -- free software under the license in the file "LICENSE",
   4 -- which is included in the distribution.
   5
   6 -- Modified to read sample input directly from a file.
   7
   8 module Main where
   9
  10 import System
  11
  12 import Parse
  13 import Eval
  14
  15 main = do { str <- readFile "galois.gml"
  16           ; mainEval (rayParse str)
  17           }