Changeset 6682 for src/Pugs/Internals.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/Internals.hs (modified) (2 diffs)

src/Pugs/Internals.hs

@@ -72 +72 @@
     maybeM,
     safeMode,
+    warn,
+    die,
 ) where
 
@@ -147 +149 @@
     "Internal error:\n    " ++ s ++ "\nPlease file a bug report."
 
+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
+
 split :: (Eq a) => [a] -> [a] -> [[a]]
 split []  _   = internalError "splitting by an empty list"