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 Parse 11 import Eval 12 13 -- entered oncemain = do { str <- readFile "galois.gml" 14 ; mainEval (rayParse str) 15 }