- Libraries - Haskell.org

What about tuple accessor function for (,,) ... ?
by Marc Weber 27 Apr '07

27 Apr '07

There is a fst and a snd function. What about fstOf3 ( \(x,_,_) -> x ) sndOf3 ( \(_,x,_) -> x ) thrdOf3 ( \(_,_,x) -> x ) ? ... or using overloading ? fst snd thrd _4th _5th I think its easier to type/ read than \(_,_,x,_) -> x class Second a b | a -> b where t2 :: a -> b instance Second (a,b) b where t2 (a,b) = b instance Second (a,b,c) b where t2 (a,b,c) = b instance Second (a,b,c,d) b where t2 (a,b,c,d) = b instance Second (a,b,c,d,e) b where t2 (a,b,c,d,e) = b Or is there any drawback I didn't see? I'd like to see them in Data.Tuple Marc

3 3

darcs patch: Use "Wide" API if System has it to suppo... (and 1 more)
by shelarcy 26 Apr '07

26 Apr '07

DarcsURL: http://darcs.haskell.org/ghc-6.6/packages/base MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=_" --=_ Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Wed Apr 25 01:35:54 =93=8C=8B=9E (=95W=8F=80=8E=9E) 2007 shelarcy(a)gmail.co= m * Use "Wide" API if System has it to support "wide" character's FilePath Wed Apr 25 13:08:43 =93=8C=8B=9E (=95W=8F=80=8E=9E) 2007 shelarcy <shelarc= y(a)gmail.com> * fix typo in "Wide" API support --=_ Content-Type: text/x-darcs-patch; name="use-_wide_-api-if-system-has-it-to-support-_wide_-character_s-filepath.dpatch" Content-Transfer-Encoding: quoted-printable Content-Description: A darcs patch for your repository! New patches: [Use "Wide" API if System has it to support "wide" character's FilePath shelarcy(a)gmail.com**20070424163554] { hunk ./GHC/Handle.hs 787 +#if defined(mingw32_HOST_OS) || HAVE_WOPEN + withCWString filepath $ \ f -> +#else hunk ./GHC/Handle.hs 791 +#endif hunk ./GHC/Handle.hs 871 +#if defined(mingw32_HOST_OS) || HAVE_WOPEN + fd <- withCWString filepath $ \ f -> +#else hunk ./GHC/Handle.hs 875 +#endif hunk ./System/Directory.hs 156 +#if defined(mingw32_HOST_OS) || HAVE_WACESS + withCWString name $ \s -> do +#else hunk ./System/Directory.hs 160 +#endif hunk ./System/Directory.hs 190 +#if defined(mingw32_HOST_OS) || HAVE_WCHMOD + withCWString name $ \p_name -> do +#else hunk ./System/Directory.hs 194 +#endif hunk ./System/Directory.hs 212 +#if defined(mingw32_HOST_OS) || HAVE_WCHMOD + withCWString source $ \p_source -> do + withCWString dest $ \p_dest -> do +#else hunk ./System/Directory.hs 218 +#endif hunk ./System/Directory.hs 266 +#if defined(mingw32_HOST_OS) || HAVE_WMKDIR + withCWString path $ \s -> do +#else hunk ./System/Directory.hs 270 +#endif hunk ./System/Directory.hs 341 +#if defined(mingw32_HOST_OS) || HAVE_WRMDIR + withCWString path $ \s -> +#else hunk ./System/Directory.hs 345 +#endif hunk ./System/Directory.hs 405 +#if defined(mingw32_HOST_OS) || HAVE_WUNLINK + withCWString path $ \s -> +#else hunk ./System/Directory.hs 409 +#endif hunk ./System/Directory.hs 469 - +#if defined(mingw32_HOST_OS) || HAVE_WRENAME + withCWString opath $ \s1 -> + withCWString npath $ \s2 -> +#else hunk ./System/Directory.hs 474 - withCString npath $ \s2 -> + withCString npath $ \s2 -> +#endif hunk ./System/Directory.hs 530 - +#if defined(mingw32_HOST_OS) || HAVE_WRENAME + withCWString opath $ \s1 -> + withCWString npath $ \s2 -> +#else hunk ./System/Directory.hs 535 - withCString npath $ \s2 -> + withCString npath $ \s2 -> +#endif hunk ./System/Directory.hs 610 +#if defined(mingw32_HOST_OS) || HAVE_WREALPATH + withCWString fpath $ \pInPath -> +#else hunk ./System/Directory.hs 614 +#endif hunk ./System/Directory.hs 622 +#if defined(mingw32_HOST_OS) || HAVE_WREALPATH + peekCWString pOutPath +#else hunk ./System/Directory.hs 626 +#endif hunk ./System/Directory.hs 629 -foreign import stdcall unsafe "GetFullPathNameA" - c_GetFullPathName :: CString +foreign import stdcall unsafe "GetFullPathNameW" + c_GetFullPathName :: CWString hunk ./System/Directory.hs 632 - -> CString - -> Ptr CString + -> CWString + -> Ptr CWString hunk ./System/Directory.hs 635 +#elif HAVE_WREALPATH +foreign import ccall unsafe "wrealpath" + c_realpath :: CWString + -> CWString + -> IO CWString hunk ./System/Directory.hs 660 - withCString binary $ \c_binary -> - withCString ('.':exeExtension) $ \c_ext -> + withCWString binary $ \c_binary -> + withCWString ('.':exeExtension) $ \c_ext -> hunk ./System/Directory.hs 666 - then do fpath <- peekCString pOutPath + then do fpath <- peekCWString pOutPath hunk ./System/Directory.hs 670 -foreign import stdcall unsafe "SearchPathA" - c_SearchPath :: CString - -> CString - -> CString +foreign import stdcall unsafe "SearchPathW" + c_SearchPath :: CWString + -> CWString + -> CWString hunk ./System/Directory.hs 675 - -> CString - -> Ptr CString + -> CWString + -> Ptr CWString hunk ./System/Directory.hs 736 - (withCString path $ \s -> = +#if defined(mingw32_HOST_OS) || HAVE_WOPENDIR + (withCWString path $ \s -> = +#else + (withCString path $ \s -> +#endif hunk ./System/Directory.hs 757 +#if defined(mingw32_HOST_OS) || HAVE_WREADDIR + entry <- (d_name dEnt >>=3D peekCWString) +#else hunk ./System/Directory.hs 761 +#endif hunk ./System/Directory.hs 807 +#if defined(mingw32_HOST_OS) || HAVE_WGETCWD + then do s <- peekCWString p' +#else hunk ./System/Directory.hs 811 +#endif hunk ./System/Directory.hs 856 +#if defined(mingw32_HOST_OS) || HAVE_WCHDIR + withCWString path $ \s -> = +#else hunk ./System/Directory.hs 860 +#endif hunk ./System/Directory.hs 905 +#if defined(mingw32_HOST_OS) || HAVE_WSTAT + withCWString (fileNameEndClean name) $ \s -> do +#else hunk ./System/Directory.hs 909 +#endif hunk ./System/Directory.hs 917 +#if defined(mingw32_HOST_OS) || HAVE_WLSTAT || HAVE_WSTAT + withCWString name $ \s -> do +#else hunk ./System/Directory.hs 921 +#endif hunk ./System/Directory.hs 990 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1028 - s <- peekCString pPath + s <- peekCWString pPath hunk ./System/Directory.hs 1062 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1098 - peekCString pPath + peekCWString pPath hunk ./System/Directory.hs 1109 - -> CString = + -> CWString = hunk ./System/Directory.hs 1116 -foreign import stdcall unsafe "GetTempPathA" c_GetTempPath :: CInt -> CStr= ing -> IO CInt +foreign import stdcall unsafe "GetTempPathW" c_GetTempPath :: CInt -> CWSt= ring -> IO CInt hunk ./System/Posix/Internals.hs 93 +#if (defined(mingw32_HOST_OS) || defined(__MINGW32__)) || HAVE_WSTAT + withCWString file $ \p_file -> do +#else hunk ./System/Posix/Internals.hs 97 +#endif hunk ./System/Posix/Internals.hs 314 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _waccess" +#elif HAVE_WACCESS +foreign import ccall unsafe "HsBase.h waccess" +#else hunk ./System/Posix/Internals.hs 320 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WACCESS + c_access :: CWString -> CInt -> IO CInt +#else hunk ./System/Posix/Internals.hs 325 +#endif hunk ./System/Posix/Internals.hs 327 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wchmod" +#elif HAVE_WCHMOD +foreign import ccall unsafe "HsBase.h wchmod" +#else hunk ./System/Posix/Internals.hs 333 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WCHMOD + c_chmod :: CWString -> CMode -> IO CInt +#else hunk ./System/Posix/Internals.hs 338 +#endif hunk ./System/Posix/Internals.hs 340 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wchdir" +#elif HAVE_WCHDIR +foreign import ccall unsafe "HsBase.h wchdir" +#else hunk ./System/Posix/Internals.hs 346 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WCHDIR + c_chdir :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 351 +#endif hunk ./System/Posix/Internals.hs 356 -foreign import ccall unsafe "HsBase.h closedir" = +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wclosedir" +#elif HAVE_WCLOSEDIR +foreign import ccall unsafe "HsBase.h wclosedir" +#else +foreign import ccall unsafe "HsBase.h closedir" +#endif hunk ./System/Posix/Internals.hs 377 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wgetcwd" +#elif HAVE_WGETCWD +foreign import ccall unsafe "HsBase.h wgetcwd" +#else hunk ./System/Posix/Internals.hs 383 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WGETCWD + c_getcwd :: Ptr CWchar -> CSize -> IO (Ptr CWchar) +#else hunk ./System/Posix/Internals.hs 388 +#endif hunk ./System/Posix/Internals.hs 397 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WLSTAT || HAV= E_WSTAT + lstat :: CWString -> Ptr CStat -> IO CInt +#else hunk ./System/Posix/Internals.hs 401 +#endif hunk ./System/Posix/Internals.hs 404 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WOPEN + c_open :: CWString -> CInt -> CMode -> IO CInt +#else hunk ./System/Posix/Internals.hs 408 +#endif hunk ./System/Posix/Internals.hs 410 -foreign import ccall unsafe "HsBase.h opendir" = - c_opendir :: CString -> IO (Ptr CDir) +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wopendir" +#elif HAVE_WOPENDIR +foreign import ccall unsafe "HsBase.h wopendir" +#else +foreign import ccall unsafe "HsBase.h opendir" +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WOPENDIR + c_opendir :: CWString -> IO (Ptr CDir) +#else + c_opendir :: CString -> IO (Ptr CDir) +#endif hunk ./System/Posix/Internals.hs 424 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WMKDIR + mkdir :: CWString -> CInt -> IO CInt +#else hunk ./System/Posix/Internals.hs 428 +#endif hunk ./System/Posix/Internals.hs 434 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WRENAME + c_rename :: CWString -> CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 438 +#endif hunk ./System/Posix/Internals.hs 443 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wrmdir" +#elif HAVE_WRMDIR +foreign import ccall unsafe "HsBase.h wrmdir" +#else hunk ./System/Posix/Internals.hs 449 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WRMDIR + c_rmdir :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 454 +#endif hunk ./System/Posix/Internals.hs 457 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WSTAT + c_stat :: CWString -> Ptr CStat -> IO CInt +#else hunk ./System/Posix/Internals.hs 461 +#endif hunk ./System/Posix/Internals.hs 472 +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) +foreign import ccall unsafe "HsBase.h _wunlink" +#elif HACE_WUNLINK +foreign import ccall unsafe "HsBase.h wunlink" +#else hunk ./System/Posix/Internals.hs 478 +#endif +#if defined(mingw32_HOST_OS) || defined(__MINGW32__) || HAVE_WUNLINK + c_unlink :: CWString -> IO CInt +#else hunk ./System/Posix/Internals.hs 483 +#endif hunk ./System/Posix/Internals.hs 501 -foreign import ccall unsafe "HsBase.h link" +#if HAVE_WLINK +foreign import ccall unsafe "HsBase.h wlink" + c_link :: CWString -> CWString -> IO CInt +#else +foreign import ccall unsafe "HsBase.h wlink" hunk ./System/Posix/Internals.hs 507 +#endif hunk ./System/Posix/Internals.hs 558 +#if defined(mingw32_HOST_OS) || HAVE_WREAD_DIR + d_name :: Ptr CDirent -> IO CWString +#else hunk ./System/Posix/Internals.hs 562 +#endif hunk ./System/Process/Internals.hs 239 - maybeWith withCString mb_cwd $ \pWorkDir -> do + maybeWith withCWString mb_cwd $ \pWorkDir -> do hunk ./System/Process/Internals.hs 243 - withCString cmdline $ \pcmdline -> do + withCWString cmdline $ \pcmdline -> do hunk ./System/Process/Internals.hs 251 - :: CString - -> CString + :: CWString + -> CWString hunk ./System/Process/Internals.hs 427 - in withCString env' (act . castPtr) + in withCWString env' (act . castPtr) hunk ./System/Process.hs 193 - withCString cmdline $ \pcmdline -> + withCWString cmdline $ \pcmdline -> hunk ./System/Process.hs 198 - maybeWith withCString workDir $ \pWorkDir -> do + maybeWith withCWString workDir $ \pWorkDir -> do hunk ./System/Process.hs 210 - :: CString = - -> CString + :: CWString = + -> CWString hunk ./cbits/dirUtils.c 63 -#if HAVE_READDIR_R +#if HAVE_READDIR_R || HAVE_WREADDIR_R +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + struct _wdirent* p; +#elif HAVE_WDIRENT + struct wdirent* p; +#else hunk ./cbits/dirUtils.c 70 +#endif hunk ./cbits/dirUtils.c 86 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + p =3D (struct _wdirent*)malloc(sizeof(struct _wdirent) + nm_max); +#elif HAVE_WREADDIR + P =3D (struct wdirent*)malloc(sizeof(struct wdirent) + nm_max); +#else hunk ./cbits/dirUtils.c 92 +#endif hunk ./cbits/dirUtils.c 94 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + res =3D _wreaddir_r(dirPtr, p, pDirEnt); +#elif HAVE_WREADDIR_R + res =3D wreaddir_r(dirPtr, p, pDirEnt); +#else hunk ./cbits/dirUtils.c 100 +#endif hunk ./cbits/dirUtils.c 116 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + *pDirEnt =3D _wreaddir(dirPtr); +#elif HAVE_WREADDIR + *pDirEnt =3D wreaddir(dirPtr); +#else hunk ./cbits/dirUtils.c 122 +#endif hunk ./cbits/dirUtils.c 141 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= RENAME +__hscore_renameFile( wchar_t *src, wchar_t *dest) +#else hunk ./cbits/dirUtils.c 145 +#endif hunk ./cbits/dirUtils.c 151 - if (MoveFileA(src, dest)) { + if (MoveFileW(src, dest)) { hunk ./cbits/dirUtils.c 158 - if ( !GetFileAttributes(dest) ) { + if ( !GetFileAttributesW(dest) ) { hunk ./cbits/dirUtils.c 176 - if ( MoveFileExA(src, dest, MOVEFILE_REPLACE_EXISTING) ) { + if ( MoveFileExW(src, dest, MOVEFILE_REPLACE_EXISTING) ) { hunk ./cbits/dirUtils.c 186 - if (DeleteFileA(dest)) { - if (MoveFileA(src,dest)) { + if (DeleteFileW(dest)) { + if (MoveFileW(src,dest)) { hunk ./cbits/dirUtils.c 197 +#elif HAVE_WRENAME + return wrename(src,dest); hunk ./cbits/dirUtils.c 212 -typedef HRESULT (*HSCORE_GETAPPFOLDERFUNTY)(HWND,int,HANDLE,DWORD,char*); +typedef HRESULT (*HSCORE_GETAPPFOLDERFUNTY)(HWND,int,HANDLE,DWORD,wchar_t*= ); hunk ./cbits/dirUtils.c 218 - char* pszPath) + wchar_t* pszPath) hunk ./cbits/runProcess.c 311 -runProcess (char *cmd, char *workingDirectory, void *environment, +runProcess (wchar_t *cmd, wchar_t *workingDirectory, void *environment, hunk ./cbits/runProcess.c 341 - if (!CreateProcess(NULL, cmd, NULL, NULL, TRUE, flags, environment, worki= ngDirectory, &sInfo, &pInfo)) + if (!CreateProcessW(NULL, cmd, NULL, NULL, TRUE, flags, environment, work= ingDirectory, &sInfo, &pInfo)) hunk ./cbits/runProcess.c 352 -runInteractiveProcess (char *cmd, char *workingDirectory, void *environmen= t, +runInteractiveProcess (wchar_t *cmd, wchar_t *workingDirectory, void *envi= ronment, hunk ./cbits/runProcess.c 387 - if (!CreateProcess(NULL, cmd, NULL, NULL, TRUE, CREATE_NO_WINDOW, environ= ment, workingDirectory, &sInfo, &pInfo)) + if (!CreateProcessW(NULL, cmd, NULL, NULL, TRUE, CREATE_NO_WINDOW, enviro= nment, workingDirectory, &sInfo, &pInfo)) hunk ./configure.ac 31 + +dnl Unixs systems have just partial "wide" api insted of all "wide" api. +dnl But Windows (MinGW) has that. +AC_CHECK_FUNCS([wlstat wstat wopen wrename wmkdir wreaddir wreaddir_r wrea= lpath waccess wchmod wchdir wclosedir wgetcwd wcopendir wrmdir wunlink wlin= k]) +AC_CHECK_TYPES([wdirent]) hunk ./include/HsBase.h 465 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= MKDIR +__hscore_mkdir( wchar_t *pathName, int mode ) +#else hunk ./include/HsBase.h 469 +#endif hunk ./include/HsBase.h 472 - return mkdir(pathName); + return _wmkdir(pathName); +#elif HAVE_WMKDIR + return wmkdir(pathName,mode); hunk ./include/HsBase.h 481 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= STAT || HAVE_WLSTAT +__hscore_lstat( const wchar_t *fname, struct stat *st ) +#else hunk ./include/HsBase.h 485 +#endif hunk ./include/HsBase.h 488 +#if HAVE_WLSTAT + return wlstat(fname, st); +#else hunk ./include/HsBase.h 492 +#endif +#else +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + return _wstat(fname, st); +#elif HAVE_WSTAT + return wstat(fname, st); hunk ./include/HsBase.h 501 +#endif hunk ./include/HsBase.h 534 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) +INLINE wchar_t * +__hscore_d_name( struct _wdirent* d ) +#elif HAVE_WDIRENT +INLINE wchar_t * +__hscore_d_name( struct wdirent* d ) +#else hunk ./include/HsBase.h 543 +#endif hunk ./include/HsBase.h 706 +#if defined(__MINGW32__) || HAVE_WOPEN +INLINE int __hscore_open(wchar_t *file, int how, mode_t mode) { +#else hunk ./include/HsBase.h 710 +#endif hunk ./include/HsBase.h 713 - return _sopen(file,how,_SH_DENYRW,mode); + return _wsopen(file,how,_SH_DENYRW,mode); hunk ./include/HsBase.h 715 - return _sopen(file,how,_SH_DENYWR,mode); + return _wsopen(file,how,_SH_DENYWR,mode); +#elif HAVE_WOPEN + return wopen(file,how,mode); hunk ./include/HsBase.h 731 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= STAT +INLINE int __hscore_stat(wchar_t *file, struct stat *buf) { +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) + return (_wstat(file,buf)); +#else + return (wstat(file,buf)); +#endif +} +#else hunk ./include/HsBase.h 743 +#endif hunk ./include/dirUtils.h 10 +#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32) || HAVE_W= RENAME +extern int __hscore_renameFile(wchar_t *src, wchar_t *dest); +#else hunk ./include/dirUtils.h 14 +#endif hunk ./include/dirUtils.h 21 - char* pszPath); + wchar_t* pszPath); hunk ./include/runProcess.h 31 -extern ProcHandle runProcess( char *cmd, = - char *workingDirectory, void *environment, = +extern ProcHandle runProcess( wchar_t *cmd, = + wchar_t *workingDirectory, void *environment, = hunk ./include/runProcess.h 35 -extern ProcHandle runInteractiveProcess( char *cmd, = - char *workingDirectory, = +extern ProcHandle runInteractiveProcess( wchar_t *cmd, = + wchar_t *workingDirectory, = } [fix typo in "Wide" API support shelarcy <shelarcy(a)gmail.com>**20070425040843] { hunk ./System/Posix/Internals.hs 505 -foreign import ccall unsafe "HsBase.h wlink" +foreign import ccall unsafe "HsBase.h link" } Context: [Bump version number to 2.1.1 Ian Lynagh <igloo(a)earth.li>**20070422163350] = [Some people (e.g. binary) are using the stg_ names, so revert the change t= o hs_ Ian Lynagh <igloo(a)earth.li>**20070422162751 They probably shouldn't be, but it's simplest not to change them for now. ] = [fix ugly uses of memcpy foreign import inside ST Simon Marlow <simonmar(a)microsoft.com>**20070405083758 fixes cg026 ] = [Convert some fd's to CInts on Windows Ian Lynagh <igloo(a)earth.li>**20070404235132] = [stg_* -> hs_* Ian Lynagh <igloo(a)earth.li>**20070405000723] = [HsByteArray doesn't exist Ian Lynagh <igloo(a)earth.li>**20070404234642] = [Don't use Fd/FD in foreign decls Ian Lynagh <igloo(a)earth.li>**20070404164305 Using CInt makes it much easier to verify that it is right, and we won't get caught out by possible newtype switches between CInt/Int. ] = [HsByteArray doesn't exist Ian Lynagh <igloo(a)earth.li>**20070404155748] = [MERGED: Fix C/Haskell type mismatches Ian Lynagh <igloo(a)earth.li>**20070404144220] = [MERGED: Fix type mismatches between foreign imports and HsBase.h Ian Lynagh <igloo(a)earth.li>**20070404135908] = [Function crossMapP for fixing desugaring of comprehensions Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070402082906 = Merge into 6.6 branch. ] = [Fix the type of wgencat Ian Lynagh <igloo(a)earth.li>**20070329164223] = [fix strictness of foldr/build rule for take, see #1219 Simon Marlow <simonmar(a)microsoft.com>**20070327103941] = [Prevent duplication of unsafePerformIO on a multiprocessor Simon Marlow <simonmar(a)microsoft.com>**20070306145424 Fixes #986. The idea is to add a new operation = noDuplicate :: IO () = it is guaranteed that if two threads have executed noDuplicate, then they are not duplicating any computation. = We now provide two new unsafe operations: = unsafeDupablePerformIO :: IO a -> a unsafeDupableInterleaveIO :: IO a -> IO a = which are equivalent to the old unsafePerformIO and unsafeInterleaveIO respectively. The new versions of these functions are defined as: = unsafePerformIO m =3D unsafeDupablePerformIO (noDuplicate >> m) unsafeInterleaveIO m =3D unsafeDupableInterleaveIO (noDuplicate >> m) ] = [Fixed PArr.dropP Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070222032405 - Thanks to Audrey Tang for the bug report ] = [GHC.PArr: add bounds checking Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070302053224] = [PArr: fixed permutations Manuel M T Chakravarty <chak(a)cse.unsw.edu.au>**20070305055807] = [copyBytes copies bytes, not elements; fixes trac #1203 Ian Lynagh <igloo(a)earth.li>**20070312113555] = [fix race condition in prodServiceThread Simon Marlow <simonmar(a)microsoft.com>**20070307134330 See #1187 ] = [MERGED: Keep the same FD in both halves of a duplex handle when dup'ing Ian Lynagh <igloo(a)earth.li>**20070220141712 Tue Feb 20 14:10:39 GMT 2007 Ian Lynagh <igloo(a)earth.li> Otherwise we only close one of the FDs when closing the handle. Fixes trac #1149. ] = [fix for hashString, from Jan-Willem Maessen (see #1137) Simon Marlow <simonmar(a)microsoft.com>**20070215094304 = ] = [fix to getUSecOfDay(): arithmetic was overflowing Simon Marlow <simonmar(a)microsoft.com>**20070214161719] = [The Windows counterpart to 'wrapround of thread delays' Ian Lynagh <igloo(a)earth.li>**20070209173510] = [wrapround of thread delays Neil Davies <SemanticPhilosopher(a)gmail.com>**20070129160519 = * made the wrapround of the underlying O/S occur before the wrapround of the delayed threads by making threads delay in microseconds since O/S epoch (1970 - Unix, 1601 - Windows) stored in Word64. * removed redundant calls reading O/S realtime clock * removed rounding to 1/50th of sec for timers * Only for Unix version of scheduler. ] = [dos2unix Simon Marlow <simonmar(a)microsoft.com>**20061204095439] = [fix threadDelay Simon Marlow <simonmar(a)microsoft.com>**20070117091702 In "Add support for the IO manager thread" I accidentally spammed part of "Make sure the threaded threadDelay sleeps at least as long as it is asked", which is why the ThreadDelay001 test has been failing. ] = [Use static inline rather than extern inline/inline Ian Lynagh <igloo(a)earth.li>**20070205203628 I understand this is more portable, and it also fixes warnings when C things we are wrapping are themselves static inlines (which FD_ISSET is on ppc OS X). ] = [add doc pointers to Foldable Ross Paterson <ross(a)soi.city.ac.uk>**20070202110931 = Could be applied to STABLE. ] = [Don't require GHC/Prim.hs when booting from HC files Ian Lynagh <igloo(a)earth.li>**20070119135114] = [Added examples, more detailed documentation to Data.List Extracting sublis= ts functions Andriy Palamarchuk <apa3a(a)yahoo.com>**20061204164710] = [Fix crash with (minBound :: Int*) `div (-1) as result is maxBound + 1. Ian Lynagh <igloo(a)earth.li>**20070115142005] = [update section on "blocking" Simon Marlow <simonmar(a)microsoft.com>**20070116124328] = [don't try to compile this on Unix Simon Marlow <simonmar(a)microsoft.com>**20061204095427] = [Add support for the IO manager thread on Windows Simon Marlow <simonmar(a)microsoft.com>**20061201152042 Fixes #637. The test program in that report now works for me with -threaded, but it doesn't work without -threaded (I don't know if that's new behaviour or not, though). ] = [documentation for installHandler Simon Marlow <simonmar(a)microsoft.com>**20061205154927 merge to 6.6 ] = [Fix missing comma in Fractional documentation Alec Berryman <alec(a)thened.net>**20061201173237] = [Make sure the threaded threadDelay sleeps at least as long as it is asked = to Ian Lynagh <igloo(a)earth.li>**20061128204807] = [Update documentation for hWaitForInput Simon Marlow <simonmar(a)microsoft.com>**20061107111430 See #972 Merge to 6.6 branch. ] = [`par` should be infixr 0 Simon Marlow <simonmar(a)microsoft.com>**20061027130800 Alas, I didn't spot this due to lack of testing, and the symptom is that an expression like x `par` y `seq z will have exactly the wrong parallelism properties. The workaround is to add parantheses. = I think we could push this to the 6.6 branch. ] = [TAG 6.6 release Ian Lynagh <igloo(a)earth.li>**20061011124740] = Patch bundle hash: a39cd956fcc335af2e2f0189a76096cb6db538b8 --=_-- .

1 0

run..Process borrow handles and escape argumentes - missing function?
by Marc Weber 26 Apr '07

26 Apr '07

Couldn't find a function which does this: use stdin/out/err of the main application and escapes the passed arguments automatically. I want to call "ssh user@host command" (runCommand :: String -> IO () ) command may contain redirection > so I would have to escape them. I don't want to have to do that I can pass a list of args to runProcess.. fine. So I can use runProcess ... (Just stdin) (Just stdout) ... to borrow the handles ? No: the comments say: -- Any 'Handle's passed to 'runProcess' are placed immediately in the closed state. That's not what I want. So I think there is still a function missing ? Cale has pointed me to hsh so I'll have a look there.. Marc

2 3

Location of inlinePerformIO
by Neil Mitchell 24 Apr '07

24 Apr '07

Hi I was looking for the function inlinePerformIO, and was quite shocked when I found it in the module "Data.ByteString.Base". This is clearly entirely the wrong place for it to go, so could we get it moved before it has to remain in this totally non-logical place forever? Thanks Neil

4 6

cabal ignores ld-options?
by Frederik Eaton 24 Apr '07

24 Apr '07

Hello, I am trying to get cabal to link an object file with a library. I tried naming it in an ld-options: line, but it didn't show up in the arguments to 'ld'. Is this the correct behaviour? I am using ghc-6.6.20070420. Thanks, Frederik

4 10

problem with unix package
by Frederik Eaton 23 Apr '07

23 Apr '07

Hello, I am having trouble loading the unix package. I am not sure what I am doing wrong. I have just installed it from hackage. As you can see below, the error message complains about an unknown symbol 'lstat', which is not in libc. [1]$ ghci -package unix ___ ___ _ / _ \ /\ /\/ __(_) / /_\// /_/ / / | | GHC Interactive, version 6.6, for Haskell 98. / /_\\/ __ / /___| | http://www.haskell.org/ghc/ \____/\/ /_/\____/|_| Type :? for help. Loading package base ... linking ... done. ghc-6.6: /home/frederik/lib/unix-2.0/ghc-6.6/HSunix-2.0.o: unknown symbol `lstat' Loading package unix-2.0 ... linking ... ghc-6.6: unable to load package `unix-2.0' [1]$ nm -D /lib/libc-2.5.so | grep -w lstat [1]$ This is an unstable Debian installation. When I try the same on a system with ghc 6.4.2 and unix-1.0, there is no problem. That system has libc 2.3.6, which also lacks an 'lstat' symbol. Thank you for your help. Frederik

5 16

filepath broken with Cabal 1.1.6
by Neil Mitchell 23 Apr '07

23 Apr '07

Hi, For users of Cabal 1.1.6, the currently checked in filepath Setup.hs script won't work - it gives: >runghc Setup.hs configure Setup.hs:17:30: Couldn't match expected type `UserHooks' against inferred type `Maybe UserHooks' Expected type: Hook a Inferred type: PackageDescription -> LocalBuildInfo -> Maybe UserHooks -> BuildFlags -> IO () In the second argument of `($)', namely `buildHook defaultUserHooks' In the `buildHook' field of a record Can this be fixed? I know the Setup.hs only really serves GHC's purposes, and I think its Ian's work. I also think its possibly the same for other packages? It would be a shame if we make everyone upgrade to have a libary which we've not put in base so they can upgrade it separately... Thanks Neil

2 2

Integrating Cabal, Haddock, HsColour
by Roberto Zunino 22 Apr '07

22 Apr '07

I've just extended Cabal so to generate docs with links to highlighted sources. Now ./Setup configure ./Setup haddock --link-to-hscolour ./Setup hscolour --css my_own_stylesheet.css generates HTML as this one: (run on Cabal itself) http://www.di.unipi.it/~zunino/tmp/dist/doc/html/Cabal/Distribution-Program… Click on the "Source" links on the right. You will be sent to the exact line. The whole Cabal docs+sources are online. Colours have been chosen to match my emacs configuration :-P . This relies on a couple of minor tweaks to Haddock and HsColour which I darcs-sent this morning to the authors. Comments are welcome. - Is this worth including in the next Cabal version? - Are the options above good choices? - Is the directory tree OK? Currently Haddock creates (under dist/doc/html) lib/Module.html lib/Module-SubMod.html lib/exe1/... lib/exe2/... while ./Setup hscolour adds (also under dist/doc/html) lib/src/Module.html lib/src/Module-Submod.html lib/src/hscolour.css lib/exe1/src/... lib/exe2/src/... (lib is the package name, exeN are the targets of the other stanzas in the .cabal file) This is so that Haddock can use relative links to sources. - Currently, you can run ./Setup haddock and ./Setup hscolour in any order, and they work. You can run haddock without hscolour, and vice versa. Links will be broken only if you pass --link-to-hscolour and do not run hscolour. Should I instead merge these subcommands so to have a single ./Setup haddock --hscolour running everything? Zun.

2 1

anyone interested in developing a Language.C library?
by Duncan Coutts 21 Apr '07

21 Apr '07

Hi all, If anyone is interested in developing a Language.C library, I've just completed a full C parser which we're using in c2hs. It covers all of C99 and all of the GNU C extensions that I have found used in practise, including the __attribute__ annotations. It can successfully parse the whole Linux kernel and all of the C files in all the system packages on my Gentoo installation. It's implemented as an alex lexer and a happy parser. The happy grammar has one shift/reduce conflict for the dangling if/then/else issue (which could be hidden by using precedence but it's clearer not to). So if someone is interested in developing a more widely usable Language.C library, I think this would be a good place to start. There's plenty to do however: * The c2hs C AST is ok but probably not enough for a general purpose library. * The parser currently uses some other c2hs infrastructure which would need disentangling to pull the parser out (mostly identifiers and unique name supply management). * It does not record everything into the parse tree, eg __attribute__s are parsed but ignored. * It does no semantic analysis after parsing (though other bits of c2hs to a very little) * In at least one place the parser is deliberately too liberal (to avoid ambiguities) which would require simple extra checks after parsing to detect. * The lexical syntax has not been checked against the spec fully, it is probably over-liberal in some cases. * I've not done much performance work, the lexer has not been seriously tuned, it still lexes via a String. Having said that, the performance is not at all bad, on a 3Ghz box it does ~20k lines/sec. * The parser error messages are terrible (it might be interesting to try porting from happy to frown for this purpose) There's probably more stuff, but that's what I can think of right now. So if anyone is interested then let me know, I can give some pointers (hopefully the useful kind, not the void * kind). You can get the code from the c2hs darcs repo: darcs get --partial http://darcs.haskell.org/c2hs/ The C parser bits are under c2hs/c/ Duncan Licensing: It's not 100% clear. At the moment it's marked as GPL, but it's derived from several sources so we need to be careful about that. Personally I'm happy to use LGPL. It derives from c2hs obviously, which is GPL, though we could enquire about re-licencing, especially since there is very little of c2hs stuff used in it any more. It also derives partly from James A. Roskind's C grammar (in particular the grammar of declarations). His copyright license is fairly liberal but this need double-checking. It also derives from the C99 spec and I read the comments in the gcc C parser as a guide to GNU C's extensions to the C grammar (no code or comments were copied however). Testing: I tested it thus far by writing a little gcc wrapper script, so you can build any ordinary bit of C software using this wrapper and it'll call gcc with the same args but it'll also try and parse the input file. It reports into a log file. I've not tried the gcc C parser testsuite. This approach is probably good for other tests like trying to see if parsing and pretty printing can round-trip correctly; if not identical token streams (since parsing drops redundant brackets etc) checking if gcc produces identical .S/.o files. Something that c2hs needs is to calculate sizes of types and structure member offsets correctly. This is also something that could be tested in this style, by comparing on thousands of example .c files with what gcc thinks.

4 4

Automated tests for the libraries?
by Jeffrey Yasskin 19 Apr '07

19 Apr '07

Looking through the libraries, I see a lot of commented out imports of QuickCheck and prop_foo definitions, but no way to run them all without a lot of manual editing of files. There are also a few tests in testsuite/tests/libraries/Data/, but they don't even build with ghc-6.6 because of an import of the hidden module Distribution.Compat.FilePath. It seems like this would make it hard to ensure that things work on more than a few platforms. Is there some automated test suite for the libraries that I'm just missing? Is there a plan for developing one? If not, I'll start a wiki page for ideas and try to get a rudimentary one put together. Jeffrey

6 13