[project @ 1996-01-12 11:35:21 by partain]

[ghc-hetmet.git] / ghc / compiler / yaccParser / U_finfot.hs

diff --git a/ghc/compiler/yaccParser/U_finfot.hs b/ghc/compiler/yaccParser/U_finfot.hs
index c6b7ea0..15055df 100644 (file)
--- a/ghc/compiler/yaccParser/U_finfot.hs
+++ b/ghc/compiler/yaccParser/U_finfot.hs
@@ -3,14 +3,12 @@
 module U_finfot where
 import UgenUtil
 import Util
-data U_finfot = U_nofinfo | U_finfo U_stringId U_stringId 
+data U_finfot = U_finfo U_stringId U_stringId 
 
 rdU_finfot :: _Addr -> UgnM U_finfot
 rdU_finfot t
   = ioToUgnM (_ccall_ tfinfot t) `thenUgn` \ tag@(I# _) ->
-    if tag == ``nofinfo'' then
-       returnUgn (U_nofinfo )
-    else if tag == ``finfo'' then
+    if tag == ``finfo'' then
        ioToUgnM (_ccall_ fi1 t) `thenUgn` \ x_fi1 ->
        rdU_stringId x_fi1 `thenUgn` \ y_fi1 ->
        ioToUgnM (_ccall_ fi2 t) `thenUgn` \ x_fi2 ->