[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / programs / jeff-bug / HawkIO.hs

diff --git a/ghc/tests/programs/jeff-bug/HawkIO.hs b/ghc/tests/programs/jeff-bug/HawkIO.hs
deleted file mode 100644 (file)
index 595b86b..0000000
--- a/ghc/tests/programs/jeff-bug/HawkIO.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-module HawkIO
-  (
-        hawkMain
-  ) where
-
-import IO
-import Memory
-
--- Begin Signature ------------------------------------------------------
-{-
-Given a filename, and function from a memory state and a starting point to a 
-an output, "hawkMain" will open the file and parse it and apply the
-function to it.
--}
-
-
-hawkMain :: (Read a,Read w) => String -> ((MemoryState w a,w) -> IO b) -> IO b
--- End Signature ------------------------------------------------------
-
-
-hawkMain filename f = do {ps <- readInitFile filename; f ps}
-
-
-readInitFile :: (Read a,Read w) => String -> IO (MemoryState w a,w)
-readInitFile infile =
- do{ h <- openFile infile ReadMode
-   ; s <- hGetContents h
-   ; return (read s)
-   }