- Libraries - Haskell.org

Cabal patch: Add setup haddock --hoogle option
by Neil Mitchell 22 Aug '06

22 Aug '06

Hi, The attached patch adds support for the --hoogle option to the haddock target. Tested on the base package, now running: runhaskell Setup haddock --hoogle Gives the file base-2.0.txt which can then be fed into Hoogle properly. Anything wrong with it? If not, can it be applied? Thanks Neil

2 1

what's in a package name?
by Andrew Pimlott 22 Aug '06

22 Aug '06

I just tried creating my first package with Cabal, and chose a package version, "0", that obeys the rules documented by Cabal: "a sequence of one or more integers separated by dots"[1]. But at the end of the build, I got "ghc-pkg: ambiguous package identifier: foo-0". (I am using ghc 6.4.2.) Simon Marlow already commented on this silly problem[2], but it appears it was never resolved. Can someone just decide on the systax of a package identifier? Cabal's documented rules seem sane to me: A package is identified by a globally-unique package name, which consists of one or more alphanumeric words separated by hyphens. To avoid ambiguity, each of these words should contain at least one letter.... A particular version of the package is distinguished by a version number, consisting of a sequence of one or more integers separated by dots. These can be combined to form a single text string called the package ID, using a hyphen to separate the name from the version, e.g. “HUnit-1.1”. Andrew [1] http://www.haskell.org/ghc/docs/latest/html/Cabal/ [2] http://www.haskell.org/pipermail/glasgow-haskell-users/2005-February/007801…

2 1

Replacing Network.CGI with NewCGI
by Bjorn Bringert 22 Aug '06

22 Aug '06

Any users of Network.CGI here? I would like to propose replacing the current Network.CGI module with what is now known as Network.NewCGI [2]. This has been mentioned briefly before [1]. The new module is backwards compatible with the old one (except for the export of Text.Html.Html, which is now Text.XHtml.Html). Here is what I would like to do: - Remove Network.CGI from the network package. - Change the name of Network.NewCGI to Network.CGI - Add the cgi package to http://darcs.haskell.org/packages/ - Add the xhtml package [3] to http://darcs.haskell.org/packages/ This is needed since the cgi package uses it to generate error pages. Any comments, suggestions, or objections? Here is a summary of the features of NewCGI: - Access to CGI parameters (e.g. form input) from both GET and POST requests. - Access to CGI environment variables. - Ability to set arbitrary response headers. - Support for HTTP cookies. - An efficient implementation of multipart/form-data using Data.ByteString. This allows for efficient handling of file uploads. - Wrapper functions for compatibility with the existing Network.CGI module. - A CGI monad transformer. - Basic exception handling and logging. - Low-level run functions that allow using NewCGI programs with protocols other than CGI, for example FastCGI [4]. /Björn [1] http://www.haskell.org/pipermail/libraries/2006-May/005391.html [2] http://www.cs.chalmers.se/~bringert/darcs/haskell-cgi/doc/ [3] http://www.cs.chalmers.se/~bringert/darcs/haskell-xhtml/doc/ [4] http://www.cs.chalmers.se/~bringert/darcs/haskell-fastcgi/doc/

3 4

darcs patch: ObjectIO Data.FiniteMap -> Data.Map fix
by Esa Ilari Vuokko 21 Aug '06

21 Aug '06

Hi Krasimir, (I'm CCing libraries@ because that's where darcs send would send this) Nightly builds for ghc/mingw32 have been recently failing because ObjectIO-package won't build now that FiniteMap has been removed. Attached is a patch that uses Data.Map instead. I have not tried if it works, merely that it compiles. (I guess I will apply the patch myself unless there's objections) Best regards, --Esa Ilari Vuokko New patches: [Use Data.Map instead of Data.FiniteMap Esa Ilari Vuokko <ei(a)vuokko.info>**20060814143706] { hunk ./Graphics/UI/ObjectIO/Control/Validate.hs 29 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Control/Validate.hs 101 - it1 = addListToFM it [(id,idParent) | id<-ids] + it1 = foldr (\id tbl -> Map.insert id idParent tbl) it ids + hunk ./Graphics/UI/ObjectIO/Id.hs 35 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Id.hs 52 -type IdTable = FiniteMap Unique IdParent -- all Id entries +type IdTable = Map.Map Unique IdParent -- all Id entries hunk ./Graphics/UI/ObjectIO/Id.hs 106 - = noDuplicates ids && not (any (\key -> elemFM key tbl) ids) + = noDuplicates ids && not (any (\key -> elem key $ Map.keys tbl) ids) hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 40 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 99 - let it1 = addToFM it menuId (IdParent{idpIOId=ioId,idpDevice=MenuDevice,idpId=menuId}) + let it1 = Map.insert menuId (IdParent{idpIOId=ioId,idpDevice=MenuDevice,idpId=menuId}) it hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 313 - Just id -> delFromFM it (fromJust mItemId) + Just id -> Map.delete (fromJust mItemId) it hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 334 - | otherwise = delFromFM it (fromJust mItemId) + | otherwise = Map.delete (fromJust mItemId) it hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 336 - delFromFM it rId + Map.delete rId it hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 341 - in maybe it1 (delFromFM it1) mRadioId + in maybe it1 (flip Map.delete it1) mRadioId hunk ./Graphics/UI/ObjectIO/Menu/Create.hs 343 - maybe it (delFromFM it) mSepId + maybe it (flip Map.delete it) mSepId hunk ./Graphics/UI/ObjectIO/Menu/Device.hs 35 -import Data.FiniteMap(lookupFM) +import qualified Data.Map as Map (lookup) hunk ./Graphics/UI/ObjectIO/Menu/Device.hs 146 - let Just idParent = lookupFM (ioContextGetIdTable iocontext) rId + let Just idParent = Map.lookup rId (ioContextGetIdTable iocontext) hunk ./Graphics/UI/ObjectIO/Menu/Handle.hs 26 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Menu/Handle.hs 114 - else Just (addListToFM it (map (\id->(id,IdParent{idpIOId=ioId,idpDevice=MenuDevice,idpId=menuId})) ids)) + else Just (foldr insMap it ids) hunk ./Graphics/UI/ObjectIO/Menu/Handle.hs 116 + insMap id tbl = Map.insert id IdParent {idpIOId=ioId, idpDevice=MenuDevice, idpId=menuId} tbl hunk ./Graphics/UI/ObjectIO/Menu/Internal.hs 38 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Menu/Internal.hs 109 - ioStSetIdTable (closeMenuIds ioid mH (delFromFM it id)) + ioStSetIdTable (closeMenuIds ioid mH (Map.delete id it)) hunk ./Graphics/UI/ObjectIO/Menu/Items.hs 32 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Menu/Items.hs 320 - let it1 = delFromFM it (fromJust mSepId) + let it1 = Map.delete (fromJust mSepId) it hunk ./Graphics/UI/ObjectIO/Menu/Items.hs 327 - else return (containsItem,iNr,delFromFM it rId,ids,itemH,keys) + else return (containsItem,iNr,Map.delete rId it,ids,itemH,keys) hunk ./Graphics/UI/ObjectIO/Menu/Items.hs 475 - let it1 = delFromFM it (fromJust mSepId) + let it1 = Map.delete (fromJust mSepId) it hunk ./Graphics/UI/ObjectIO/Menu/Items.hs 483 - else return (containsItem,iNr,indices,delFromFM it rId,recH,keys) + else return (containsItem,iNr,indices,Map.delete rId it,recH,keys) hunk ./Graphics/UI/ObjectIO/OS/MenuEvent.hs 40 -import Data.FiniteMap(lookupFM) +import Data.Map as Map (lookup) hunk ./Graphics/UI/ObjectIO/OS/MenuEvent.hs 84 - case lookupFM (ioContextGetIdTable iocontext) rId of + case Map.lookup rId (ioContextGetIdTable iocontext) of hunk ./Graphics/UI/ObjectIO/OS/ReceiverEvent.hs 26 -import Data.FiniteMap(lookupFM) +import qualified Data.Map as Map (lookup) hunk ./Graphics/UI/ObjectIO/OS/ReceiverEvent.hs 41 - case lookupFM (ioContextGetIdTable iocontext) rId of + case Map.lookup rId (ioContextGetIdTable iocontext) of hunk ./Graphics/UI/ObjectIO/OS/TimerEvent.hs 30 -import Data.FiniteMap(lookupFM) +import Data.Map as Map (lookup) hunk ./Graphics/UI/ObjectIO/OS/TimerEvent.hs 68 - case lookupFM (ioContextGetIdTable iocontext) rId of + case Map.lookup rId (ioContextGetIdTable iocontext) of hunk ./Graphics/UI/ObjectIO/OS/WindowEvent.hs 37 -import Data.FiniteMap(lookupFM) +import qualified Data.Map as Map (lookup) hunk ./Graphics/UI/ObjectIO/OS/WindowEvent.hs 103 - case lookupFM (ioContextGetIdTable iocontext) rId of + case Map.lookup rId (ioContextGetIdTable iocontext) of hunk ./Graphics/UI/ObjectIO/Process/IOState.hs 72 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Process/IOState.hs 241 - , ioidtable = emptyFM + , ioidtable = Map.empty hunk ./Graphics/UI/ObjectIO/Receiver/Device.hs 26 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Receiver/Device.hs 69 - ioStSetIdTable (delListFromFM idtable rIds); + ioStSetIdTable (foldr Map.delete idtable rIds); hunk ./Graphics/UI/ObjectIO/Receiver/Device.hs 99 - let Just idParent = lookupFM it rId + let Just idParent = Map.lookup rId it hunk ./Graphics/UI/ObjectIO/StdControl.hs 109 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdControl.hs 128 - let maybeParent = lookupFM idtable id + let maybeParent = Map.lookup id idtable hunk ./Graphics/UI/ObjectIO/StdControl.hs 136 - let parentIds = map (lookupFM idtable . getId) xs + let parentIds = map (flip Map.lookup idtable . getId) xs hunk ./Graphics/UI/ObjectIO/StdControl.hs 323 - ioStSetIdTable (delListFromFM it (freeIds)) + ioStSetIdTable (foldr Map.delete it (freeIds)) hunk ./Graphics/UI/ObjectIO/StdControl.hs 343 - ioStSetIdTable (delListFromFM it freeIds) + ioStSetIdTable (foldr Map.delete it freeIds) hunk ./Graphics/UI/ObjectIO/StdId.hs 29 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdId.hs 72 - return (fmap idpId (lookupFM it id)) + return (fmap idpId (Map.lookup id it)) hunk ./Graphics/UI/ObjectIO/StdMenu.hs 79 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdMenu.hs 131 - return (if elemFM id idtable then Nothing else Just id) + return (if Map.member id idtable then Nothing else Just id) hunk ./Graphics/UI/ObjectIO/StdMenu.hs 282 - (case lookupFM it mId of + (case Map.lookup mId it of hunk ./Graphics/UI/ObjectIO/StdMenu.hs 303 - (case lookupFM it sId of + (case Map.lookup sId it of hunk ./Graphics/UI/ObjectIO/StdMenu.hs 324 - (case lookupFM idtable rId of + (case Map.lookup rId idtable of hunk ./Graphics/UI/ObjectIO/StdMenu.hs 334 - let idtable1 = addListToFM idtable (map (\id->(id,IdParent{idpIOId=ioId,idpDevice=MenuDevice,idpId=mId})) radioIds) + let insMap id tbl = Map.insert id IdParent{idpIOId=ioId,idpDevice=MenuDevice,idpId=mId} tbl + idtable1 = foldr insMap idtable radioIds hunk ./Graphics/UI/ObjectIO/StdMenu.hs 353 - (case lookupFM idtable mId of + (case Map.lookup mId idtable of hunk ./Graphics/UI/ObjectIO/StdMenu.hs 363 - (case lookupFM idtable sId of + (case Map.lookup sId idtable of hunk ./Graphics/UI/ObjectIO/StdMenu.hs 374 - (case lookupFM idtable rId of + (case Map.lookup rId idtable of hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 45 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 66 - let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,lookupFM it id)) ids) + let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,Map.lookup id it)) ids) hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 75 - let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,lookupFM it id)) ids) + let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,Map.lookup id it)) ids) hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 120 - let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,lookupFM it id)) ids) + let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,Map.lookup id it)) ids) hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 129 - let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,lookupFM it id)) ids) + let ids_mIds = filterMap (isOkMenuElementId ioId) (map (\id -> (id,Map.lookup id it)) ids) hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 147 - let id_titles_mIds = filterMap (isOkMenuElementId ioId) (map (\id_t@(id,_) -> (id_t,lookupFM it id)) id_titles) + let id_titles_mIds = filterMap (isOkMenuElementId ioId) (map (\id_t@(id,_) -> (id_t,Map.lookup id it)) id_titles) hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 168 - let maybeParent = lookupFM it id + let maybeParent = Map.lookup id it hunk ./Graphics/UI/ObjectIO/StdMenuElement.hs 204 - let maybeParent = lookupFM it id + let maybeParent = Map.lookup id it hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 51 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 73 - if elemFM id idtable + if Map.member id idtable hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 85 - ioStSetIdTable (addToFM idtable id (IdParent {idpIOId=ioId,idpDevice=ReceiverDevice,idpId=id})); + ioStSetIdTable (Map.insert id (IdParent {idpIOId=ioId,idpDevice=ReceiverDevice,idpId=id}) idtable); hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 110 - if elemFM id idtable + if Map.member id idtable hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 122 - ioStSetIdTable (addToFM idtable id (IdParent {idpIOId=ioId,idpDevice=ReceiverDevice,idpId=id})); + ioStSetIdTable (Map.insert id (IdParent {idpIOId=ioId,idpDevice=ReceiverDevice,idpId=id}) idtable); hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 175 - ioStSetIdTable (delFromFM idtable id); + ioStSetIdTable (Map.delete id idtable); hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 270 - unless (elemFM (rIdtoId rid) it) (throwGUI ErrorUnknownObject) + unless (Map.member (rIdtoId rid) it) (throwGUI ErrorUnknownObject) hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 284 - unless (elemFM (rIdtoId rid) it) (throwGUI ErrorUnknownObject) + unless (Map.member (rIdtoId rid) it) (throwGUI ErrorUnknownObject) hunk ./Graphics/UI/ObjectIO/StdReceiver.hs 298 - unless (elemFM (r2IdtoId rid) it) (throwGUI ErrorUnknownObject) + unless (Map.member (r2IdtoId rid) it) (throwGUI ErrorUnknownObject) hunk ./Graphics/UI/ObjectIO/StdTimer.hs 34 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdTimer.hs 67 - let it1 = addToFM it id IdParent{idpIOId=pid,idpDevice=TimerDevice,idpId=id} + let it1 = Map.insert id IdParent{idpIOId=pid,idpDevice=TimerDevice,idpId=id} it hunk ./Graphics/UI/ObjectIO/StdTimer.hs 98 - (if elemFM id it then throwGUI ErrorIdsInUse + (if Map.member id it then throwGUI ErrorIdsInUse hunk ./Graphics/UI/ObjectIO/StdTimer.hs 130 - in (removeTimerFromTimerTable teLoc tt1,delFromFM it1 (tId tH)) + in (removeTimerFromTimerTable teLoc tt1,Map.delete (tId tH) it1) hunk ./Graphics/UI/ObjectIO/StdWindow.hs 83 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/StdWindow.hs 150 - ioStSetIdTable (addToFM it okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId})) + ioStSetIdTable (Map.insert okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId}) it) hunk ./Graphics/UI/ObjectIO/StdWindow.hs 175 - ioStSetIdTable (addToFM it okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId})) + ioStSetIdTable (Map.insert okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId}) it) hunk ./Graphics/UI/ObjectIO/StdWindow.hs 196 - ioStSetIdTable (addToFM it okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId})) + ioStSetIdTable (Map.insert okId (IdParent {idpIOId=ioId,idpDevice=WindowDevice,idpId=okId}) it) hunk ./Graphics/UI/ObjectIO/Timer/Access.hs 23 -import Data.FiniteMap +import Data.Map as Map hunk ./Graphics/UI/ObjectIO/Timer/Access.hs 39 - | elemFM rid it = Nothing - | otherwise = Just (addToFM it rid (IdParent{idpIOId=pid,idpDevice=TimerDevice,idpId=timerid})) + | Map.member rid it = Nothing + | otherwise = Just (insert rid (IdParent{idpIOId=pid,idpDevice=TimerDevice,idpId=timerid}) it) hunk ./Graphics/UI/ObjectIO/Timer/Access.hs 64 - (removeTimerFromTimerTable teLoc tt,delFromFM it rId) + (removeTimerFromTimerTable teLoc tt,Map.delete rId it) hunk ./Graphics/UI/ObjectIO/Timer/Device.hs 28 -import Data.FiniteMap +import Data.Map as Map hunk ./Graphics/UI/ObjectIO/Timer/Device.hs 75 - in (removeTimerFromTimerTable teLoc tt,delFromFM it tId) + in (removeTimerFromTimerTable teLoc tt,delete tId it) hunk ./Graphics/UI/ObjectIO/Window/Device.hs 50 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Window/Device.hs 112 - ioStSetIdTable (delListFromFM idtable (concat freeIdss)) + ioStSetIdTable (foldr Map.delete idtable (concat freeIdss)) hunk ./Graphics/UI/ObjectIO/Window/Device.hs 146 - let Just idParent = lookupFM it rId + let Just idParent = Map.lookup rId it hunk ./Graphics/UI/ObjectIO/Window/Dispose.hs 34 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Window/Dispose.hs 90 - ioStSetIdTable (delListFromFM idtable ids); + ioStSetIdTable (foldr Map.delete idtable ids); hunk ./Graphics/UI/ObjectIO/Window/Validate.hs 43 -import Data.FiniteMap +import qualified Data.Map as Map hunk ./Graphics/UI/ObjectIO/Window/Validate.hs 65 - if elemFM id idtable + if Map.member id idtable } Context: [TAG Initial conversion from CVS complete John Goerzen <jgoerzen(a)complete.org>**20060112154134] Patch bundle hash: 1cfda5a076b0c429075eb36bea6f66c7f05caa61

3 2

Cabal Questions
by Neil Mitchell 19 Aug '06

19 Aug '06

Hi, I want to use a preprocessor (haskell source extensions) on .xhs files in the Hoogle repo. This isn't a preprocessor that is known about by Cabal as far as I can tell, so I need to do "something". I remember that one of the main drives behind Cabal was so that additional preprocessors could be specified by the individual program. I remembered that lambdabot uses a preprocessor, but sadly that uses GHC specific preprocessor flags, and so isn't using the cabal architecture for doing this. How does Cabal do this? Any examples I can follow? Thanks Neil PS. I note that there is a new cabal-devel mailing list, but the cabal docs still suggest sending to this list for cabal questions. What should go on this list, and what should go down cabal-devel?

6 18

perhaps
by John Meacham 17 Aug '06

17 Aug '06

does anyone else think this would be useful to provide? > module Data.Perhaps where > > data Perhaps = No | Maybe | Yes > deriving(Eq,Ord,Show,Read,Enum,Bounded) > > instance Monoid Perhaps ... > ... I only ask because it has come up as useful several times in projects I work on. John -- John Meacham - ⑆repetae.net⑆john⑈

10 14

Three questions about patch to cabal
by Jeremy Shaw 17 Aug '06

17 Aug '06

Hello, I ran into a problem while trying to debianize libraries that use cabal. I want to provide profiling libraries by default, but I want them to be provided in a seperate .deb, so that you do not have to install them if you don't need them. So for 'mylib' I would generate two .debs: libghc6-mylib-dev libghc6-mylib-prof Cabal already has an --enable-library-profiling flag, but this causes the profiling and non-profiling libraries to be compiled at the same time into the same directory tree. This means I have to use regular expression to try to move the profiling libraries into a seperate package. I think a better solution would be to provide a mechanism to disable building the vanilla libraries, such as: --enable-library-vanilla --disable-library-vanilla This could also be extended to support other flags in the future, like: --enable/disable-library-parallel --enable/disable-library-bytecode --enable/disable-library-native This scheme seems mostly fine. Package maintainers can do multiple passes building exactly what they want on each pass. People compiling from source can just enable everything they want and build in a single pass. So, I have three questions: (1) Flag sanity checking Not all combinations of flags are sensible. For example, we can already specify: --disable-library-profiling --enable-executable-profiling Which will probably fail unless the executable does not depend on the libraries. These new flags would introduce further nonsense, such as: --enable-library-for-ghci --disable-library-vanilla That will fail because --enable-library-for-ghci requires building the vanilla libraries. The current code processes the flags in isolation -- so detecting conflicts will be a moderate change to the existing code. But I think it is the right thing to do, anyone disagree? (2) Is there a better set of flags Perhaps my problem is that I am using the wrong abstraction for the flags. Is there a different set of flags that would solve my problem with out introducing incompatible combinations? (3) Another name for vanilla libraries I need a name to describe libraries that are built without any 'special' flags like -prof or -parallel. Currently I am using --enable/disable-library-vanilla, but I think there might be a better choice. Other ideas are 'default', 'plain', or 'standard'. Thanks! j.

4 8

Template haskell helper
by Rene de Visser 15 Aug '06

15 Aug '06

Hello, I have hacked together some untested haskell code to do the following z8 = printTH [d| instance TH_Render Char1 where render x = HsLit $ HsChar $ 'a' |] results in something like $(sequence [(instanceD (cxt []) (appT (conT (mkName "TH_Render")) (conT (mkName "Char1"))) [(funD (mkName "render") [(clause [(varP (mkName "x"))] (normalB (infixE (Just (conE (mkName "HsLit"))) (varE (mkName "$")) (Just (infixE (Just (conE (mkName "HsChar"))) (varE (mkName "$")) (Just (litE (CharL 'a'))))))) [])])])]) (minus the "$(sequence )") which you can then be pasted into your program and modified. Hopefully this will people get started with template haskell (and save me a little bit of typing). Rene. begin 666 TH_render.hs M>RTC($]05$E/3E,@+69G;&%S9V]W+65X=',@+69T:" C+7T-"GLM(R!/4%1) M3TY3("UF86QL;W<M;W9E<FQA<'!I;F<M:6YS=&%N8V5S(",M?0T*;6]D=6QE M(%1(7W1O;VQS+E1(7W)E;F1E<B!W:&5R90T*#0II;7!O<G0@3&%N9W5A9V4N M2&%S:V5L;"Y42 T*:6UP;W)T($QA;F=U86=E+DAA<VME;&PN5$@N4WEN=&%X M#0H-"FEM<&]R="!,86YG=6%G92Y(87-K96QL+E!A<G-E<@T*:6UP;W)T($QA M;F=U86=E+DAA<VME;&PN4')E='1Y#0II;7!O<G0@3&%N9W5A9V4N2&%S:V5L M;"Y3>6YT87@-"@T*:6UP;W)T(%1(7W1O;VQS+D)A<V4-"@T*#0HM+2!"=6EL M9"!V87)I86)L92!A<F=U96UE;G0@8G5I;&1E<@T*8VQA<W,@0G5I;&1(<T5X M<"!A('(@=VAE<F4-"B @("!B=6EL9"<@.CH@2'-%>' @+3X@82 M/B!R#0H- M"FEN<W1A;F-E("A42%]296YD97(@82D@/3X@0G5I;&1(<T5X<"!A($AS17AP M('=H97)E#0H@(" @8G5I;&0G(&P@>" ]($AS4&%R96X@)"!(<T%P<"!L("AR M96YD97(@>"D-"@T*:6YS=&%N8V4@*%1(7U)E;F1E<B!A+"!42%]296YD97(@ M8BP@0G5I;&1(<T5X<"!B('(I(#T^($)U:6QD2'-%>' @82 H8BT^<BD@=VAE M<F4-"B @("!B=6EL9"<@;"!X('D@/2!B=6EL9"<@*$AS07!P(&P@*')E;F1E M<B!X*2D@('D-"@T*("TM8G5I;&0@.CH@9F]R86QL('(@82X@*$)U:6QD3&ES M="!A('(I(#T^(&$@+3X@<@T*8G5I;&0@9G5N8R!X(#T@8G5I;&0G("AF=6YC M7V]U="!F=6YC*2!X#0H-"F-L87-S(%1(7U)E;F1E<B!S('=H97)E#0H@(')E M;F1E<B Z.B!S("T^($AS17AP#0H-"FEN<W1A;F-E(%1(7U)E;F1E<B!$96,@ M=VAE<F4-"B @<F5N9&5R("A&=6Y$(&YA;64@8VQA=7-E<RD@/2!B=6EL9" G M9G5N1"!N86UE(&-L875S97,-"B @<F5N9&5R("A686Q$('!A="!B;V1Y(&1E M8W,I(#T@8G5I;&0@)W9A;$0@<&%T(&)O9'D-"B @<F5N9&5R("A$871A1"!C M>'0@;F%M93$@;F%M97,R(&-O;G,@;F%M97,S*2 ](&)U:6QD("=D871A1"!C M>'0@;F%M93$@;F%M97,R(&-O;G,@;F%M97,S#0H@(')E;F1E6Y$(&YA;64@ M;F%M97,@='EP#0H@(')E;F1E'0@='EP(&1E8W,I M(#T@8G5I;&0@)VEN<W1A;F-E1"!C>'0@='EP(&1E8W,-"B @<F5N9&5R("A3 M:6=$(&YA;64@='EP*2 ](&)U:6QD("=S:6=$(&YA;64@='EP#0H@(')E;F1E M<B H1F]R96EG;D0@9F]R96EG;C$I(#T@97)R;W(@(D9O<F5I9VY$(&YO="!S M=7!P;W)T960B#0H-"@T*:6YS=&%N8V4@5$A?4F5N9&5R($-L875S92!W:&5R M90T*("!R96YD97(@*$-L875S92!P871S(&)O9'D@9&5C<RD@/2!B=6EL9" G M8VQA=7-E('!A=',@8F]D>2!D96-S#0H-"FEN<W1A;F-E(%1(7U)E;F1E<B!# M;VX@=VAE<F4-"B @<F5N9&5R("A.;W)M86Q#(&YA;64@<W1R:6-T5'EP97,I M(#T@8G5I;&0@)VYO<FUA;$,@;F%M92!S=')I8W14>7!E<PT*("!R96YD97(@ M*%)E8T,@;F%M92!V87)3=')I8W14>7!E<RD@/2 @8G5I;&0@)W)E8T,@;F%M M92!V87)3=')I8W14>7!E<PT*("!R96YD97(@*$EN9FEX0R!S=')I8W14>7!E M,2!N86UE('-T<FEC=%1Y<&4R*2 ](&)U:6QD("=I;F9I>$,@<W1R:6-T5'EP M93$@;F%M92!S=')I8W14>7!E,@T*("!R96YD97(@*$9O<F%L;$,@;F%M97,@ M8WAT(&-O;BD@/2!E<G)O7 I(#T@8G5I;&0@ M)W9A<E-T<FEC=%1Y<&4@;F%M92 H<W1R:6-T+"!T>7 I#0H-"FEN<W1A;F-E M(%1(7U)E;F1E<B!4>7!E('=H97)E#0H@(')E;F1E'0@='EP*2 ](&)U:6QD("=F;W)A;&Q4(&YA;65S(&-X="!T>7 -"B @ M<F5N9&5R("A687)4(&YA;64I(#T@8G5I;&0@)W9A<E0@(&YA;64-"B @<F5N M9&5R("A#;VY4(&YA;64I(#T@8G5I;&0@)V-O;E0@(&YA;64-"B @<F5N9&5R M("A4=7!L950@:6YT*2 ](&)U:6QD("=T=7!L950@:6YT#0H@(')E;F1E7 R*2 ](&)U:6QD("=A<'!4('1Y<#$@='EP,B -"@T*:6YS=&%N8V4@5$A? M4F5N9&5R(%-T<FEC="!W:&5R90T*("!R96YD97(@3F]T4W1R:6-T(#T@9G5N M8U]O=70@)VYO=%-T<FEC= T*("!R96YD97(@27-3=')I8W0@/2!F=6YC7V]U M=" G:7-3=')I8W0-"@T*:6YS=&%N8V4@5$A?4F5N9&5R($9U;D1E<"!W:&5R M90T*("!R96YD97(@*$9U;D1E<"!N86UE<S$@;F%M97,R*2 ](&5R<F]R(")R M96YD97(@)V9U;D1E<"!N86UE<S$@;F%M97,R(@T*#0II;G-T86YC92!42%]2 M96YD97(@3F%M92!W:&5R90T*("!R96YD97(@;F%M92 ](&)U:6QD("=M:TYA M;64@*&YA;65"87-E(&YA;64I#0H-"FEN<W1A;F-E(%1(7U)E;F1E<B!0870@ M=VAE<F4-"B @(')E;F1E' I(#T@8G5I;&0@)VYO<FUA;$(@97AP#0H@("!R96YD M97(@*$=U87)D961"(&=U87)D<RD@/2!B=6EL9" G9W5A<F1E9$(@(&=U87)D M<PT*#0II;G-T86YC92!42%]296YD97(@4W1M="!W:&5R90T*(" @<F5N9&5R M("A":6YD4R!P870@97AP*2 ](&)U:6QD("=B:6YD4R!P870@97AP#0H@("!R M96YD97(@*$QE=%,@9&5C<RD@/2!B=6EL9" G;&5T4R!D96-S#0H@("!R96YD M97(@*$YO0FEN9%,@97AP*2 ](&)U:6QD("=N;T)I;F13(&5X< T*(" @<F5N M9&5R("A087)3('-T;71S<RD@/2!B=6EL9" G<&%R4R!S=&UT<W,-"@T*:6YS M=&%N8V4@5$A?4F5N9&5R($5X<"!W:&5R90T*(" @<F5N9&5R("A687)%(&YA M;64I(#T@8G5I;&0@)W9A<D4@;F%M90T*(" @<F5N9&5R("A#;VY%(&YA;64I M(#T@8G5I;&0@)V-O;D4@;F%M92 @( T*(" @<F5N9&5R("A,:71%(&QI="D@ M/2!B=6EL9" @)VQI=$4@;&ET#0H@("!R96YD97(@*$%P<$4@97AP,2!E>' R M*2 ](&)U:6QD("=A<'!%(&5X<#$@97AP,B -"B @(')E;F1E' I(#T@8G5I;&0@)W1U<$4@97AP#0H@("!R96YD97(@*$-O;F1% M(&5X<#$@97AP,B!E>' S*2 ](&)U:6QD("=C;VYD12!E>' Q(&5X<#(@97AP M,R -"B @(')E;F1E<B H3&5T12!D96-S(&5X<"D@/2!B=6EL9" G;&5T12!D M96-S(&5X<" -"B @(')E;F1E<B H0V%S944@97AP(&UA=&-H<RD@/2!B=6EL M9" G8V%S944@97AP(&UA=&-H<PT*(" @<F5N9&5R("A$;T4@<W1M=',I(#T@ M8G5I;&0@)V1O12!S=&UT<PT*(" @<F5N9&5R("A#;VUP12!S=&UT<RD@/2!B M=6EL9" G8V]M<$4@<W1M=',-"B @(')E;F1E' @='EP*2 ](&)U:6QD("=S:6=%(&5X<"!T>7 -"B @(')E;F1E$4@;45X<#$@97AP(&U%>' R*2 ](&)U:6QD("=I;F9I>$4@;45X<#$@97AP M(&U%>' R( T*#0II;G-T86YC92!42%]296YD97(@*$UA>6)E($5X<"D@=VAE M<F4-"B @(')E;F1E' I(#T@8G5I;&0@)TIU<W0@97AP#0H@ M("!R96YD97(@3F]T:&EN9R ](&9U;F-?;W5T("=.;W1H:6YG#0H-"FEN<W1A M;F-E(%1(7U)E;F1E<B!-871C:"!W:&5R90T*(" @<F5N9&5R("A-871C:"!P M870@8F]D>2!D96-S*2 ](&)U:6QD("=M871C:"!P870@8F]D>2!D96-S#0H- M"FEN<W1A;F-E(%1(7U)E;F1E<B!286YG92!W:&5R90T*(" @<F5N9&5R("A& M<F]M4B!E>' I(#T@8G5I;&0@)V9R;VU2(&5X< T*(" @<F5N9&5R("A&<F]M M5&AE;E(@97AP,2!E>' R*2 ](&)U:6QD("=F<F]M5&AE;E(@97AP,2!E>' R M#0H@("!R96YD97(@*$9R;VU4;U(@97AP,2!E>' R*2 @/2!B=6EL9" G9G)O M;51O4B!E>' Q(&5X<#(-"B @(')E;F1E' R(&5X<#,I(#T@8G5I;&0@)V9R;VU4:&5N5&]2(&5X<#$@97AP,B!E>' S M( T*#0II;G-T86YC92!42%]296YD97(@*%-T<FEC="P@5'EP92D@=VAE<F4- M"B @<F5N9&5R("AS=')I8W0L('1Y<"D@/2!B=6EL9" G<W1R:6-T5'EP92!S M=')I8W0@='EP#0H-"FEN<W1A;F-E(%1(7U)E;F1E' I(#T@8G5I;&0@ M)VYO<FUA;$=%(&=E>' @97AP#0H@("!R96YD97(@*%!A=$<@<W1M=',L(&5X M<"D@/2!B=6EL9" G<&%T1T4@<W1M=',-"@T*:6YS=&%N8V4@5$A?4F5N9&5R M("A.86UE+"!%>' I('=H97)E#0H@("!R96YD97(@*&YA;64L(&5X<"D@/2!B M=6EL9" G9FEE;&1%>' @;F%M92!E>' -"@T*:6YS=&%N8V4@*%1(7U)E;F1E M<B!A*2 ]/B!42%]296YD97(@6V%=('=H97)E#0H@("!R96YD97(@;&ES=" ] M($AS3&ES=" H;6%P(')E;F1E<B!L:7-T*0T*#0II;G-T86YC92!42%]296YD M97(@6U1Y<&5=('=H97)E#0H@(')E;F1E<B!C>'1S(#T@2'-087)E;B D("AF M=6YC7V]U=" G8WAT*2!@2'-!<'!@("A(<TQI<W0@)"!M87 @<F5N9&5R(&-X M=',I#0H-"FEN<W1A;F-E(%1(7U)E;F1E<B!3=')I;F<@=VAE<F4-"B @<F5N M9&5R('-T<FEN9R ]($AS3&ET("0@2'-3=')I;F<@<W1R:6YG#0H@#0II;G-T M86YC92!42%]296YD97(@3&ET('=H97)E#0H@("!R96YD97(@*$EN=&5G97), M(&EN="D@/2!B=6EL9" G26YT96=E<DP@:6YT#0H@("!R96YD97(@*$-H87), M(&-H87(I(#T@8G5I;&0@)T-H87),(&-H87(-"B @(" @(" @(" @(" @(" @ M(" @(" @(" @(" @(" @(" @(" @(" -"FEN<W1A;F-E(%1(7U)E;F1E<B!) M;G1E9V5R('=H97)E#0H@("!R96YD97(@:6YT(" ]("A(<TQI=" H2'-);G0@ M:6YT*2D@( T*#0II;G-T86YC92!42%]296YD97(@26YT('=H97)E#0H@("!R M96YD97(@:6YT(" ]("A(<TQI=" H2'-);G0@)"!F<F]M26YT96=R86P@:6YT M*2D-"@T*:6YS=&%N8V4@5$A?4F5N9&5R($-H87(@=VAE<F4-"B @<F5N9&5R M(&-H87(@(#T@*$AS3&ET("A(<T-H87(@8VAA<BDI#0H-"F9U;F-?;W5T(&8@ M/2!(<U9A<B D(%5N475A;" D($AS261E;G0@)"!N86UE0F%S92!F#0H-"@T* M<F5N9&5R7V%L;" Z.B H36]N860@;2D@/3X@;2!;1&5C72 M/B!M(%M(<T5X M<%T-"G)E;F1E<E]A;&P@9&5C<R ](&1O(&1E8W,G(#PM(&1E8W,-"B @(" @ M(" @(" @(" @(" @(" @(')E='5R;B D("AM87 @<F5N9&5R(&1E8W,G*0T* M#0IZ-2 ](%MD?"!X(#T@,7Q=(" @(" @(" @(" @(" @(" @(" @( T*>#(@ M/2!P<FEN=$%35" D(')E;F1E<E]A;&P@>C4-"BTM('@S(#T@<#(@>#(@#0H- M"@T*+2T@0V%N(&%L=V%Y<R!U<V4@;6%T8VAI;F<@:&5R92!T;R!R96UO=F4@ M;W5T97)M;W-T("@I#0IP<FEN=%1((#HZ(%$@6T1E8UT@+3X@24\@*"D-"G!R M:6YT5$@@9&5C<R ](&1O(&1E8W,G(#PM(')U;E$@)"!R96YD97)?86QL(&1E M8W,-"B @(" @(" @(" @(" @(" @('!U=%-T5!R:6YT("0@ M2'-,:7-T(&1E8W,G#0H@(" @(" @(" @(" @(" @("!P=713='(@(EQN(@T* M#0IN97=T>7!E($-H87(Q(#T@0VAA<C$@0VAA<@T*#0IZ-R ]('!R:6YT5$@@ M>C4-"GHX(#T@<')I;G142"!;9'P@:6YS=&%N8V4@5$A?4F5N9&5R($-H87(Q M('=H97)E#0H@(" @(" @(" @(" @(" @(" @(" @("!R96YD97(@>" ]($AS M3&ET("0@2'-#:&%R("0@)V$G('Q=#0H-"GDQ(#T@<')I;G1!4U0@6V1\(&EN M<W1A;F-E(%1(7U)E;F1E<B!#:&%R,2!W:&5R90T*(" @(" @(" @(" @(" @ M(" @(" @(" @<F5N9&5R('@@/2!(<TQI=" D($AS0VAA'0@6UTI#0H@(" @*&%P<%0@ M*&-O;E0@*&UK3F%M92 B5$A?4F5N9&5R(BDI("AC;VY4("AM:TYA;64@(D-H M87(Q(BDI*0T*(" @(%LH9G5N1" H;6M.86UE(")R96YD97(B*0T*(" @(" @ M("!;*&-L875S92!;*'9A<E @*&UK3F%M92 B>"(I*5T-"B @(" @(" @(" @ M("AN;W)M86Q"#0H@(" @(" @(" @(" @(" H:6YF:7A%("A*=7-T("AC;VY% M("AM:TYA;64@(DAS3&ET(BDI*2 H=F%R12 H;6M.86UE("(D(BDI#0H@(" @ M(" @(" @(" @(" @(" H2G5S= T*(" @(" @(" @(" @(" @(" @(" @*&EN M9FEX12 H2G5S=" H8V]N12 H;6M.86UE(")(<T-H87(B*2DI("AV87)%("AM M:TYA;64@(B0B*2D-"B @(" @(" @(" @(" @(" @(" @(" @("A*=7-T("AL M:71%("A#:&%R3" G82<I*2DI*2DI#0H@(" @(" @(" @("!;72E=*5TI72D- !"@`` ` end begin 666 Base.hs M>RTC($]05$E/3E,@+69G;&%S9V]W+65X=',@+69T:" C+7T-"FUO9'5L92!4 M2%]T;V]L<RY"87-E('=H97)E#0H-"FEM<&]R="!,86YG=6%G92Y(87-K96QL M+E1(#0II;7!O<G0@3&%N9W5A9V4N2&%S:V5L;"Y42"Y3>6YT87@-"@T*:6YS M=&%N8V4@4VAO=R!);F9O('=H97)E#0H@('-H;W<@*%1Y0V]N22!D96,I(#T@ M(E1Y0V]N22 D("(@*RL@<VAO=R!D96,-"@T*<')I;G1!4U0@.CH@*%-H;W<@ M82D@/3X@42!A("T^($E/("@I#0IP<FEN=$%35" @87-T(#T@<G5N42!A<W0@ M/CX]('!U=%-T<DQN("X@<VAO=PT*#0IP<FEN=$-O9&4@.CH@*%!P<B!A*2 ] M/B!1(&$@+3X@24\@*"D-"G!R:6YT0V]D92!A<W0@/2!R=6Y1(&%S=" ^/CT@ M<'5T4W1R3&X@+B!P<')I;G0-"@T*=&5S=%]P<FEN="!Q=6%S:2 ](&1O('MD D(#PM(')U;E$@)"!Q=6%S:2 [("!P<FEN="!D?0T*#0H-"@T* ` end

1 0

Re: compile error (macosx intel), test failure, and few questions
by Chris Kuklewicz 11 Aug '06

11 Aug '06

[ I am copying my reply to the libraries mailing list ] Georgios Siganos wrote: > Hi Chris, > I am checking your library and i have found some problems with the head > version on my system (macosx intel with ghc 6.5) > > First, I get a compile error when I build regex-tre > Wrap.hsc:120:23: error: tre/regex.h: No such file or directory > I can build the remaining modules with no errors. The current README file suggest that you "edit list of BACKENDS in Makefile if you want to exclude regex-tre or regex-pcre" Since you do not have libtre, you can remove it from the BACKENDS near the top of the main Makefile. Theoretically, if you edited regex-tre/regex-tre.cabal to not define -DHAVE_TRE_H then regex-tre would compile and install, but using it would be an error. This is not going to work at the moment since I have not recently tested that part of the source. But it could be handy if you want the module to exist, but not depend on compiling against libtre. > Second, I can successfully run your examples, but when i run > TestTextRegexLazy I get a segmentation fault > ... > "StringPCRE" > Us (backrefs): > Cases: 15 Tried: 15 Errors: 0 Failures: 0 > Us (lazy patterns): > Cases: 31 Tried: 31 Errors: 0 Failures: 0 > Us (possessive patterns): > Cases: 27 Tried: 27 Errors: 0 Failures: 0 > Us (shared): > Cases: 344 Tried: 50 Errors: 0 Failures: 0Segmentation fault > I am not sure how helpful this can be, let me know if you want more > details to find the cause > of the segmentation fault. Note, that the stable version passes all the > tests. Hmmm....I just uploaded (about 10 minutes before your e-mail) version 0.70 to both http://evenmere.org/~chrisk/trl/head/ and http://evenmere.org/~chrisk/trl/stable. There was a pcre segfault that was fixed back in version 0.66 or 0.67. (The FunPtr to pcre_free was null, so it died randomly whenever the garbage collector ran.) > > Regarding the documentation, is there an easy way to produce it, or are > you still working on it? ./setup haddock in each of the regex-* subdirectories will build ./dist/doc/* but I don't have an automatic documentation installer. > > Finally, do you have any suggestion on how I can use sth similar to > splitRegex on a ByteString? I want to split a ByteString using "\n\n" as > a delimiter, and i am not sure what > is the best way to do it. I will eventually expand the compatibility API to provide that. If you needed the split to be lazy, you can copy what regex-compat/Text/Regex/New.hs does: > splitRegex :: Regex -> String -> [String] > splitRegex _ [] = [] > splitRegex delim str = > case matchM delim str of > Nothing -> [str] > Just (firstline, _, remainder, _) -> > if remainder == "" > then firstline : [] : [] > else firstline : splitRegex delim remainder But a more efficient way would be to get all the matches from PCRE in one pass and then return all the intermediate parts: > import Data.ByteString.Char8 > import Text.Regex.Base > import Text.Regex.PCRE > > split' :: Regex -> ByteString -> [ByteString] > split' regex source = > let matches :: [(MatchOffset,MatchLength)] > matches = match regex source > process pos _ | pos `seq` False = undefined > process pos [] = [after pos source] > process pos ((s,o):rest) = extract (pos,s-pos) source : process (s+o) rest > in process 0 matches > *Main> split' (makeRegex "l|d") (pack "Hello World") > ["He","","o Wor","",""] > *Main> split' (makeRegex "l|o.") (pack "Hello World") > ["He","","","W","","d"] > *Main> split' (makeRegex ".o|\?") (pack "Hello World, how are you?") > <interactive>:1:24: lexical error in string/character literal > *Main> split' (makeRegex ".o") (pack "Hello World, how are you?") > ["Hel"," ","rld, ","w are ","u?"] > *Main> split' (makeRegex "l|.o") (pack "Hello World, how are you?") > ["He","","o ","r","d, ","w are ","u?"] > *Main> split' (makeRegex "H") (pack "Hello World, how are you?") > ["","ello World, how are you?"] > *Main> split' (makeRegex "H|h") (pack "Hello World, how are you?") > ["","ello World, ","ow are you?"] > *Main> split' (makeRegex "\n\n") (pack "Hello \nWorld,\n\n how\n are you?") > ["Hello \nWorld,"," how\n are you?"] > Keep on the good work, > Georgos > :)

1 0

ANN: TextRegexLazy 0.70 (stable)
by Chris Kuklewicz 11 Aug '06

11 Aug '06

What: "TextRegexLazy" version 0.70 Where: darcs get --partial http://evenmere.org/~chrisk/trl/stable/ (and darcs get --partial http://evenmere.org/~chrisk/trl/head/ ) The conversion to separate regex-* packages seems stable now. More changes will be done as part of interfacing with GHC. What should I do to advance the plan of changing GHC's regex support? Note that the new Posix library backend is much higher performance than the old one when searching for all the (non-overlapping) matches. The regex-compat package provides Text.Regex.New that uses this better wrapping. The low level API from the Wrap modules always handles errors with Either types. The (Byte)String modules provide a medium level API that handles errors with Either types (compile/execute/regexec). By comparison, the "match" or "=~" high level API still calls error or fail. The build environment will have to be slightly edited when installing. Details are in the README file (and you can and should email me questions). I would appreciate someone with ghc on windows to build as many of the packages as possible and tell me how to do it or how to fix it. GHC includes a copy of the Posix regex library to compile on windows, but regex-posix does not do this (yet). regex-parsec may undergo some small changes to give it a more posix-compatible mode. Right now QuickCheck has found some sub-expression captures that are different for pcre and posix, and parsec agrees with pcre in its left-most strategy but does not always agree with posix in its longest strategy. -- Chris

1 0