- Haskell-Cafe - Haskell.org

replacement
by hossein rohani 14 Apr '07

14 Apr '07

Write a function with three parameters, two atoms and a list, (say p1, p2 and L) that returns the list, L, with all occurrences of the first given atom, p1, replaced by the second one, p2. If P2 be nil, the given atom should be deleted and the returned list cannot contain anything in place of it, no matter how deep it occurred in the list. Note: Remember it says that "no matter how deep it occurred in the list.".It means thatwe may have nested list example: replace 1 2 [1 2 3 4] => [2 2 3 4] replace 1 2 [[1 2 3][3 4 5 1]] => [[2 2 3][3 4 5 1]] --------------------------------- Ahhh...imagining that irresistible "new car" smell? Check outnew cars at Yahoo! Autos.

2 1

Type checking with Haskell
by Joel Reymont 13 Apr '07

13 Apr '07

Folks, The ghc/compiler/typecheck directory holds a rather large body of code and quick browsing through did not produce any insight. How do you implement type checking in haskell? Assume I have an Expr type with a constructor per type and functions can take lists of expressions. Do I create a function taking an Expr, pattern-matching on appropriate constructor and returning True on a match and False otherwise? Thanks, Joel -- http://wagerlabs.com/

8 11

generate Haskell code from model
by Steffen Mazanek 13 Apr '07

13 Apr '07

Hello everybody, I would like to start a discussion on how to generate best-practice Haskell code from a model, e.g. from EMF. It seems to be very difficult and unconvenient to simulate OOP with Haskell (as described in the paper "Object-oriented style overloading for Haskell"). However, I think it might be possible to generate "something useful" out of a model to not start from scratch an implementation. For example, I could imagine to generate for every class a module, import and export lists and a type class (with some restrictions) at the very least. In the EMF book there is an example, PurchaseOrder, look at http://www.awprofessional.com/content/images/0131425420/samplechapter/budin… at page 11. How would you like generated code from this model to look like? The most obvious way would be something like this: data PurchaseOrder = PurchaseOrder {shipTo::String, billTo:: String, items::[Item]} data Item = Item {productName::String, quantity::Int, price::Float} This does not work well if function names are reused or inheritance comes into play, however, even this might be a useful starting point (better than nothing). The benefits of the model+generate approach are well known. Best practices in programming are propagated, for Haskell e.g. use different modules for different things, use the tedious import/export lists, Haddock your code... What are your ideas? Best regards, Steffen -- Dipl.-Inform. Steffen Mazanek Institut für Softwaretechnologie Fakultät Informatik Universität der Bundeswehr München 85577 Neubiberg Tel: +49 (0)89 6004-2505 Fax: +49 (0)89 6004-4447 E-Mail: steffen.mazanek(a)unibw.de

5 6

A monad using IO, Reader, Writer, State and Error
by Martin Huschenbett 13 Apr '07

13 Apr '07

Hi all, for my current project I need a monad that is an instance of MonadIO, MonadReader, MonadWriter, MonadState, and MonadError. I see two ways for defining such a monad using the mtl. 1) type MyMonad = ErrorT E (RWST R W S IO) and 2) type MyMonad = RWST R W S (ErrorT E IO) I can't figure out what is the difference between these two definitions and therefore which one is more suitable for my problem. Or are the equivalent and it is unimportant which one I use? Or is it even better define a new type like newtype MyMonad a = MyMonad { runMyMonad :: R -> S -> IO (Either E a,S,W) } and declare instances for all 5 type classes? Thanks for your help in advance, Martin.

2 2

implementing try for RWST ?
by Jeremy Shaw 13 Apr '07

13 Apr '07

Hello, I defined a newtype like this (the ()s will be replace with something more useful in the future): > newtype DryRunIO a = DryRunIO { runDryRunIO :: RWST Bool () () IO a } > deriving (Monad, MonadIO, MonadError IOError, MonadFix, Functor, MonadReader Bool, MonadWriter (), MonadState ()) > > run :: Bool -> DryRunIO a -> IO a > run dryRun action = (runRWST (runDryRunIO action)) dryRun () >>= \ (a, _, _) -> return a and I want to define a function similar to |try| like this: > tryDR :: DryRunIO a -> DryRunIO (Either IOError a) > tryDR m = catchError (m >>= return . Right) (return . Left) unfortunately, when I use it, it does not work the way I want: *Main> run False (tryDR (error "cheese")) *** Exception: cheese This is because 'error' raises an |Exception|, not a |IOError|. I would like to instead define tryDR to deal with exceptions: > newtype DryRunIO a = DryRunIO { runDryRunIO :: RWST Bool () () IO a } > deriving (Monad, MonadIO, MonadError Exception, MonadFix, Functor, MonadReader Bool, MonadWriter (), MonadState ()) > > tryDR :: DryRunIO a -> DryRunIO (Either Exception a) > tryDR m = catchError (m >>= return . Right) (return . Left) But to do this, I need an different instance of MonadError for IO, namely: > instance MonadError Exception IO where > throwError = throwIO > catchError = catch -- (from Control.Exception) However, if I add that to my module I get this error: Functional dependencies conflict between instance declarations: instance MonadError Exception IO -- Defined at /tmp/DR.hs:17:0 instance MonadError IOError IO -- Defined in Control.Monad.Error Where do I go from here? Also, what is the justificiation for the current default of IOError instead of the more general Exception? thanks! j. ps. As a hack I have implemented tryDR as: > tryDR' :: DryRunIO a -> DryRunIO (Either Exception a) > tryDR' (DryRunIO m) = DryRunIO $ RWST $ \r s -> > catch (runRWST m r s >>= \(a, s, w) -> return (Right a, s, w)) -- uses catch from Control.Exception > (\e -> runRWST (return $ Left e) r s) However, I think this is buggy, because changes to 's' and 'w' will be lost if 'm' raises an exception. For example in: > tryDR' (io $ putStr "hello" >> updatePosition (length "hello") >> error "goodbye") The updatedPosition would reflect the position before the tryDR, but the cursor on the screen would be somewhere else. It is my hope that the earlier definition does not have this bug.

1 0

Parsing indentation-based languages with Parsec
by George Pollard 13 Apr '07

13 Apr '07

Hi, first time list poster :) I've searched around a bit but haven't been able to find any examples of this. I want to be able to parse a language (such as Haskell, Python) which has only EOL as the 'statement' separator and has indentation levels to indicate block structure. Whilst doing this I want to use Parsec's nice library. The first thing I noticed was that Parsec's whiteSpace parser will ignore EOL as just whiteSpace, so I need to redefine that. Is this the correct way to do it? I've only been using Haskell for a week or so so I'm not too sure on the record structures and updating them... lexer :: P.TokenParser () lexer = ( P.makeTokenParser emptyDef { commentLine = "#", nestedComments = True, identStart = letter, identLetter = letter, opStart = oneOf "+*/-=", opLetter = oneOf "+*/-=", reservedNames = [], reservedOpNames = [], caseSensitive = False } ) { --update lexer fields P.whiteSpace = do --just gobble spaces many (char ' ') return () } (I got the basic code from the tutorial contained within the Parsec docs.) For handling the indented blocks I thought I would use something to hold current indentation state, as Parsec has support for threading state through all the parsers. Is this the right way to go about this? Has anyone done the 'groundwork' with parsing such languages so I don't need to reinvent this? Thanks in advance, - porges.

1 0

Re: [Haskell-cafe] Compiling GHC
by Chris Witte 12 Apr '07

12 Apr '07

On 4/11/07, Andrew Appleyard <aja(a)cse.unsw.edu.au> wrote: > The source paths for these copies are derived from the path of the > gcc binary ($GccDir). Did you call configure with '--with-gcc=C:/ > Mingw/bin/gcc.exe'? I received those errors when I forgot to do that. Yep that fixed that. Thanks. > I think that 'gettimeofday' is statically linked into the ghc > executable, so it's just that GHCi doesn't know about it. Adding a: > > Sym(gettimeofday) \ > > line to the RTS_MINGW_ONLY_SYMBOLS #define in rts/Linker.c (from line > 265) seemed to fix the problem for me. > > I'm not sure if this is a GHCi bug or something else being awry. > 'gettimeofday' was added to the mingwex library in mingw- > runtime-3.10, which was released in July last year, so I would have > expected this problem to have come up before now... I made this change but I still get the error unknown symbol `_gettimeofday' I'm using mingw 5.1.3 which as far as i can tell should use the 3.11 runtime.

2 3

xmonad window manager mailing list
by dons＠cse.unsw.edu.au 12 Apr '07

12 Apr '07

I'm pleased to announce that the xmonad window manager now has a mailing list set up: http://www.haskell.org/mailman/listinfo/xmonad For those who don't know, xmonad is a tiling window manager written in Haskell. You can find more about it at: http://xmonad.org and Lennart Kolmodin's recent blog post http://lennartkolmodin.blogspot.com/2007/04/xmonad.html Additionally, the lead xmonad developer, Spencer Janssen, has been accepted by PSU to work on XCB bindings to Haskell, for the Google Summer of Code. XCB is a simpler, smaller, threadsafe replacement for Xlib, which should simplify further the window manager code base. We hope to have the 0.1 release of xmonad out shortly, until then, hope to see you on the mailing list! -- Don

1 0

more problems with c2hs
by Ruben Zilibowitz 12 Apr '07

12 Apr '07

Hi, I've built and installed c2hs on my Mac OS X system now. I read through the research paper on c2hs available on the website for c2hs and decided I would need to try it out to learn it. But it gives me errors which I am having trouble trying to understand. Here are the error messages: c2hs file.chs powerpc-apple-darwin8-gcc-4.0.1: c: No such file or directory powerpc-apple-darwin8-gcc-4.0.1: c: No such file or directory powerpc-apple-darwin8-gcc-4.0.1: warning: '-x -x' after last input file has no effect powerpc-apple-darwin8-gcc-4.0.1: no input files c2hs: Error during preprocessing custom header file Can anyone figure out what is going on here? Is it my chs file or is it to do with c2hs? Regards, Ruben

2 1

Re: Why Perl is more learnable than Haskell
by Ryan Dickie 12 Apr '07

12 Apr '07

I thought I could resist this thread but I'll bite =:-() The first language i learned was basic. No real functions, simple step by step instructions. I then learned hypercard, c, c++, python, assembly, vhdl, and too many others! Now i've decided to learn haskell. I view it as a mathematicians language. I do research in the field of medical imaging.. particularly processing large cardiac data sets to figure out characteristics, diseases, etc. Why workflow generally starts out as 1) mathematical idea 2) turn that pure equation into a numerical recipe 3) implement, debug 5) analyze 6) goto step 1. I find doing my thinking in the continous domain makes things a lot easier. But here's where i differ from everyone else. I already have the mathematical relationships all nice and tidy (hopefully!) in my head before i start. I literally just implement it. I don't want to care about threading, IO, message passing, or numerical stability. I have to care about performance but only so far as it hampers my productivity. Preferably the language will do it implicitly. Your average programmer wants a language to do tasks. Having to think about the math and relationships behind it all is rather sickening to them (and me too!). I am a new haskell programmer (basically a week into it!). It is by far the hardest language i've had to pick up. A lot of my code could be structured in a functional way.. but almost all reply on looping techniques (would take a lot of work to rethink my gradient descent method and make it fast!). Regardless of actually using haskell.. i like to transfer these techniques to c++. Before i even knew of haskell i knew some FP methods and i found that using these shrunk my code, shrunk the bugs, and did nice things for performance + concurrency. In fact, I just read a google paper on their batch system. They use to functions: map and reduce. They can easily split it up over their cluster etc... these are the ideas of FP that i like! That and the set-builder notation. I also hate matlab to death. Is there any possibility of using haskell as a replacement using ghci? Mostly i care about linalg when it comes to using matlab. ps: sorry if gmail butchered this reply. I had subscribed to the digest and turns out that was a mistake :D

3 2