September 2006 - Libraries

darcs patch: New function isInfixOf that searches a l... (and 1 more)
by John Goerzen 04 Sep '06

04 Sep '06

Thu Aug 31 10:15:56 CDT 2006 John Goerzen <jgoerzen(a)complete.org> * New function isInfixOf that searches a list for a given sublist Example: isInfixOf "Haskell" "I really like Haskell." -> True isInfixOf "Ial" "I really like Haskell." -> False This function was first implemented in MissingH as MissingH.List.contains Fri Sep 1 09:36:54 CDT 2006 John Goerzen <jgoerzen(a)complete.org> * Cleaner isInfixOf suggestion from Ross Paterson

2 1

Portable keyboard signal handling
by Robert Dockins 04 Sep '06

04 Sep '06

Friends, I have a Haskell library that is currently GHC-only. However, I'm working on making it more portable, with the short-term goal of running on Hugs and the hope of being Haskell' compliant when the time comes. One problem I've run into is that I need a way to portably handle Ctrl-C. On Posix systems, this can be done in a pretty straightforward manner using System.Posix.Signals. However, for win32, I've been relying on the GHC.ConsoleHandler module, which is obviously GHC-specific. Because the module is short, I've attached the complete code text to the end of this message. So, my question is, what should my strategy be? I could snarf the entire contents of GHC.ConsoleHandler into my project (yuck!). I could try to get the ConsoleHandler module out of the GHC walled garden. I could try to get the 'withControlCHandler' function into a future release of the standard libs . Or... What do you think? Have I missed some other option? Rob Dockins Speak softly and drive a Sherman tank. Laugh hard; it's a long way to the bank. -- TMBG module System.Console.Shell.ConsoleHandler ( withControlCHandler ) where import qualified Control.Exception as Ex #ifndef mingw32_HOST_OS import qualified System.Posix.Signals as PS withControlCHandler :: IO () -> IO a -> IO a withControlCHandler hdl m = Ex.bracket (PS.installHandler PS.keyboardSignal (PS.Catch hdl) Nothing) (\oldh -> PS.installHandler PS.keyboardSignal oldh Nothing) (\_ -> m) #else import qualified GHC.ConsoleHandler as CH handleCtrlC :: IO () -> CH.Handler handleCtrlC hdl = CH.Catch $ \ev -> case ev of CH.ControlC -> hdl _ -> return () withControlCHandler :: IO () -> IO a -> IO a withControlCHandler hdl m = Ex.bracket (CH.installHandler (handleCtrlC hdl)) (\oldh -> CH.installHandler oldh) (\_ -> m) #endif

5 7

darcs patch: New function isInfixOf that searches a list for a give...
by John Goerzen 01 Sep '06

01 Sep '06

Thu Aug 31 10:15:56 CDT 2006 John Goerzen <jgoerzen(a)complete.org> * New function isInfixOf that searches a list for a given sublist Example: isInfixOf "Haskell" "I really like Haskell." -> True isInfixOf "Ial" "I really like Haskell." -> False This function was first implemented in MissingH as MissingH.List.contains

7 9