Changeset 6682 for src/Pugs/Compile.hs

Timestamp:

09/04/05 09:32:39 (3 years ago)

Author:

luqui

Message:

Created a warning that warns when you try to export an operator. The problem
came up with Set that exported &infix:<->, thus *overriding* the default
numeric minus, and causing wacky infinite loops all over the place!

Files:

• src/Pugs/Compile.hs (modified) (2 diffs)

src/Pugs/Compile.hs

@@ -18 +18 @@
     TParam(..),
     EnterClass(..),
-    die, varText,
+    die, varText
 ) where
 import Pugs.AST
@@ -390 +390 @@
     compile val = return $ PVal val
 
-die :: (MonadIO m, Show a) => String -> a -> m b
-die x y = do
-    warn x y
-    liftIO $ exitFailure
-
-warn :: (MonadIO m, Show a) => String -> a -> m ()
-warn str val = liftIO $ do
-    hPutStrLn stderr $ "*** " ++ str ++ ":\n    " ++ show val
-
 -- utility functions
 padSort :: (Var, [(TVar Bool, TVar VRef)]) -> (String, [(a, b)]) -> Ordering