News aggregator

Haskell Programming Language

del.icio.us/haskell - Sun, 06/01/2014 - 3:30am
Categories: Offsite Blogs

ghc-rts.pdf

del.icio.us/haskell - Sat, 05/31/2014 - 6:37pm
Categories: Offsite Blogs

ghc-rts.pdf

del.icio.us/haskell - Sat, 05/31/2014 - 6:37pm
Categories: Offsite Blogs

IntelliJ plugin?

Haskell on Reddit - Sat, 05/31/2014 - 6:21pm

I looks like someone finally either forked the old plugin or decided to start a new one. link from IntelliJ site. Has anyone used this yet?

submitted by spitfiredd
[link] [16 comments]
Categories: Incoming News

Can't Scheme be considered a statically typed language?

Haskell on Reddit - Sat, 05/31/2014 - 1:02pm

I was thinking and I noticed one could create a language identical to Scheme with a static typing system and type inference. So why can't we say Scheme itself is a statically typed language?

5 :: Number (cons 1 nil) :: List Number (lambda (a) (+ a a)) :: Number -> Number (lambda (a) (cons a nil)) :: a -> List a

The only trouble I see would be something like below:

(lambda (a) (if a 5 (cons 1 nil)))

But I guess one could just go ahead and say it is just a sum type:

data NewType = Number | List (lambda (a) (if a 5 (cons 1 nil))) :: NewType

?

submitted by SrPeixinho
[link] [13 comments]
Categories: Incoming News

Why is the monoid operation mappend and not mop?

Haskell on Reddit - Sat, 05/31/2014 - 11:22am

I realize it's a pretty trivial thing, but it's been bugging me for a while. I searched a bit but couldn't find any historical reason for the list-centric naming of monoid functions.

submitted by Hrothen
[link] [29 comments]
Categories: Incoming News

Yesod won't install

Haskell on Reddit - Sat, 05/31/2014 - 8:05am

I tried installing Yesod, following the instructions. Unfortunately it failed with an error message:

cabal: Error: some packages failed to install: hjsmin-0.1.4.6 depends on language-javascript-0.5.13 which failed to install. language-javascript-0.5.13 failed during the configure step. The exception was: ExitFailure 1 yesod-platform-1.2.11 depends on language-javascript-0.5.13 which failed to install. yesod-static-1.2.3 depends on language-javascript-0.5.13 which failed to install.

FWIW I'm using Ubuntu 12.04 and installed Haskell with:

$ sudo apt-get install haskell-platform

Is this what is know as "dependency hell"? Would I be better off not using the apt-get package?

Also, AIUI cabal is Haskell's equvalent of Python's pip; is there a Haskell equivalent of Python's virtualenv (which let's me run multiple virtual environments, each with different packages installed)?

submitted by cabalamat
[link] [15 comments]
Categories: Incoming News

Writing functions without explicit application

Haskell on Reddit - Sat, 05/31/2014 - 7:59am

I'm trying to write a function that converts a list to a palindromic list in the following way:

> palindrate [1,2,3] [1,2,3,3,2,1] > palindrate "r/haskell" "r/haskelllleksah/r"

It is quite simple to write this in the following way:

palindrate :: [a] -> [a] palindrate l = l ++ reverse l

However recently I've become rather fond of defining functions without explicitly referring to the value they are applied to. In most situations, like the one above, it takes a few moments of thought to figure out how to do this. I have come up with the following:

palindrate :: [a] -> [a] palindrate = id &&& reverse >>> uncurry (++)

Is there a better way of doing this? And, other than the benefits derived from the programmer feeling good, is there anything to be gained from this approach?

submitted by tekn04
[link] [16 comments]
Categories: Incoming News

How much do you explicitly use category theory in your code?

Haskell on Reddit - Sat, 05/31/2014 - 6:23am

Every Haskell programmer uses category theory whether she knows it or not - map/fmap and . are two basic examples. What I want to know is, how much do you code categorically? To what end do you do so?

Personally, I'm learning it as I go along; a small project I'm working on is converting some code I have written to use algebraic type constructors (e.g. a list having a datatype F a = 1 + a * F a) and so on.

submitted by deltaSquee
[link] [51 comments]
Categories: Incoming News

Bryan O'Sullivan: A major upgrade to attoparsec: more speed, more power

Planet Haskell - Sat, 05/31/2014 - 1:34am

I’m pleased to introduce the third generation of my attoparsec parsing library. With a major change to its internals, it is both faster and more powerful than previous versions, while remaining backwards compatible.

Comparing to C

Let’s start with a speed comparison between the hand-written C code that powers Node.js’s HTTP parser and an idiomatic Haskell parser that uses attoparsec. There are good reasons to take these numbers with a fistful of salt, so imagine huge error bars, warning signs, and whatnot—but they’re still interesting.

<iframe frameborder="0" height="371" scrolling="no" seamless="seamless" src="https://docs.google.com/a/serpentine.com/spreadsheets/d/1OapXAdci7YtuDBuqeHDccwKxUBMKNmRmAMfPlZdP_Nw/gviz/chartiframe?oid=1066929795" width="600"></iframe>

A little explanation is in order for why there are two entries for http-parser. The “null” driver consists of a series of empty callbacks, and represents the best possible performance we can get. The “naive” http-parser driver allocates memory for both a request and each of its headers, and frees this memory once a request parse has finished. (A real user of http-parser is likely to be slower than the naive driver, as http-parser forces its clients to do complex book-keeping.)

Meanwhile, the attoparsec parser is of course tiny: a few dozen lines of code, instead of a few thousand. More interestingly, it’s faster than its do-nothing C counterpart. When I last compared the two, back in 2010, attoparsec was a little over half the speed of http-parser, so to pass it feels like an exciting development.

To be clear, you really shouldn’t treat comparing the two as anything other than a fast-and-loose exercise. The attoparsec parser does less work in some ways, for instance by not special-casing the Content-Length header. At the same time, it does more work in a different, but perhaps more important case: there’s no equivalent of the maze of edge cases that arise with http-parser when a parse spans a boundary between blocks of input. The attoparsec programming model is simply way less hairy.

Caveats aside, my purpose with this comparison is to paint with broad strokes what I hope is a compelling picture: you can write a compact, clean parser using attoparsec, and you can expect it to perform well.

Speed improvements

Compared to the previous version of attoparsec, the new internals of this version yield some solid speedups. On attoparsec’s own microbenchmark suite, speedups range from flat to nearly 2x.

<iframe frameborder="0" height="371" scrolling="no" seamless="seamless" src="https://docs.google.com/a/serpentine.com/spreadsheets/d/1OapXAdci7YtuDBuqeHDccwKxUBMKNmRmAMfPlZdP_Nw/gviz/chartiframe?oid=736840736" width="600"></iframe>

If you use the aeson JSON library to parse JSON data that contains a lot of numbers, you can expect a nice boost in performance.

Space usage

In addition to being faster, attoparsec is now generally more space efficient too. In a test of an application that uses Johan Tibell’s cassava library for handling CSV files, the app used 39% less memory with the new version of attoparsec than before, while running 5% faster.

New API fun

The new internals of attoparsec allowed me to add a feature I’ve wanted for a few years, one I had given up on as impossible with the previous internals.

match :: Parser a -> Parser (ByteString, a)

Given an arbitrary parser, match returns both the result of the parse and the string that it consumed while matching.

>>> let p = (,) <$> decimal <*> ("," *> decimal) >>> parseOnly (match p) "1,31337" Right ("1,31337",(1,31337))

This is very handy when what you’re interested in is not just the components of a parse result, but also the precise input string that the parser matched. (Imagine using this to save the contents of a comment while parsing a programming language, for instance.)

The old internals

What changed to yield both big performance improvements and previously impossible capabilities? To understand this, let’s discuss how attoparsec worked until today.

The age-old way to write parser libraries in Haskell is to treat parsing as a job of consuming input from the front of a string. If you want to match the string "foo" and your input is "foobar", you pull the prefix from "foobar" and hand "bar" to your successor parser as its input. This is how attoparsec used to work, and we’ll see where it becomes relevant in a moment.

One of attoparsec’s major selling points is that it works with incomplete input. If we give it insufficient input to make a decision about what to do, it will tell us.

>>> parse ("bar" <|> "baz") "ba" Partial _

If we get a Partial constructor, we resume parsing by feeding more input to the continuation it hands us. The easiest way is to use feed:

>>> let cont = parse ("bar" <|> "baz") "ba" >>> cont `feed` "r" Done "" "bar"

Continuations interact in an interesting way with backtracking. Let’s talk a little about backtracking in isolation first.

>>> let lefty = Left <$> decimal <* ".!" >>> let righty = Right <$> rational

The parser lefty will not succeed until it has read a decimal number followed by some nonsense.

Suppose we get partway through a parse on input like this.

>>> let cont = parse (lefty <|> righty) "123." >>> cont Partial _

Even though the decimal portion of lefty has succeeded, if we feed the string "1!" to the continuation, lefty as a whole will fail, parsing will backtrack to the beginning of the input, and righty will succeed.

>>> cont `feed` "1!" Done "!" Right 123.1

What’s happening behind the scenes here is important.

Under the old version of attoparsec, parsing proceeds by consuming input. By the time we reach the "." in the input of "123.", we have thrown away the leading "123" as a result of decimal succeeding, so our remaining input is "." when we ask for more.

The <|> combinator holds onto the original input in case a parse fails. Since a parse may need ask for more input before it fails (as in this case), the old attoparsec has to keep track of this additional continuation-fed input separately, and glue the saved and added inputs together on each backtrack. Worse yet, sometimes we have to throw away added input in order to avoid double-counting it.

This surely sounds complicated and fragile, but it was the only scheme I could think of that would work under the “parsing as consuming input” model that attoparsec started with. I managed to make this setup run fast enough that (once I’d worked the bugs out) I wasn’t too bothered by the additional complexity.

From strings to buffers and cursors

The model that attoparsec used to follow was that we consumed input, and for correctness when backtracking did our book-keeping of added input separately.

Under the new model, we manage input and added input in one unified Buffer abstraction. We track our position using a separate cursor, which is simply an integer index into a Buffer.

If we need to backtrack, we simply hand the current Buffer to the alternate parser, along with the cursor that will restart parsing at the right spot.

The idea of parsing with a cursor isn’t mine; it came up during a late night IRC conversation with Ed Kmett. I’m excited that this change happened to make it easy to add a new combinator, match, which had previously seemed impossible to write.

match :: Parser a -> Parser (ByteString, a)

In the new cursor-based world, all we need to build match is to remember the cursor position when we start parsing. If the parse succeeds, we extract the substring that spans the old and new cursor positions. I spent quite a bit of time pondering this problem with the old representation without getting anywhere, but by changing the internal representation, it suddenly became trivial.

Switching to the cursor-based representation accounts for some of the performance improvements in the new release, as it opened up a few new avenues for further small tweaks.

Bust my buffers!

There’s another implementation twist, though: why is the Buffer type not simply a ByteString? Here, the question is one of efficiency, specifically behaviour in response to pathologically crafted inputs.

Every time someone feeds us input via the Partial continuation, we have to add this to the input we already have. The obvious thing to do is treat Buffer as a glorified ByteString and simply string-append the new input to the existing input and get on with life.

Troublingly, this approach would require two string copies per append: we’d allocate a new string, copy the original string into it, then tack the appended string on the end. It’s easy to see that this has quadratic time complexity, which would allow a hostile attacker to DoS us by simply drip-feeding us a large volume of valid data, one byte at a time.

The new Buffer structure addresses such attacks by exponential doubling, such that most appends require only one string copy instead of two. This improves the worst-case time complexity of being drip-fed extra input from O(n2) to O(nlogn).

Preserving safety and speed

Making this work took a bit of a hack. The Buffer type contains a mutable array that contains both an immutable portion (visible to users) and an invisible mutable part at the end. Every time we append, we write to the mutable array, and hand back a Buffer that widens its immutable portion to include the part we just wrote to. The array is shared across successive Buffers until we run out of space.

This is very fast, but it’s also unsafe: nobody should ever append to the same Buffer twice, as the sharing of the array can lead to data corruption. Let’s think about how this could arise. Our original Buffer still thinks it can write to the mutable portion of an array, while our new Buffer considers the same area of memory to be immutable. If we append to the original Buffer again, we will scribble on memory that the new Buffer thinks is immutable.

Since neither our choice of API nor Haskell’s type system can prevent bad actions here, users are free to make the programming error of appending to a Buffer more than once, even though it makes no sense to do so. It’s not satisfactory to have pure code react badly even when the programmer is doing something wrong, so I addressed this problem in an interesting way.

The immutable shell of a Buffer contains a generation number. We embed a mutable generation number in the shared array that each Buffer points to. We increment the mutable generation number every time we append to a Buffer, and hand back a Buffer that also has an incremented immutable generation number.

The mutable and immutable generation numbers should always agree. If they fall out of sync, we know that someone is appending to a Buffer more than once. We react by duplicating the mutable array, so that the new append cannot interfere with the existing array. This amounts to a cheap copy-on-write scheme: copies never occur in the typical case of users behaving sensibly, while we preserve correctness if a programmer starts doing daft things.

Assurance

Before I embarked on this redesign, I doubled the size of attoparsec’s test and benchmark suites. This gave me a fair sense of safety that I wouldn’t accidentally break code as I went.

Once the rate of churn settled down, I found the most significant packages using attoparsec on Hackage and tried them out.

This revealed that an incompatible change I’d made in the core Parser type caused quite a lot of downstream build breakage, with a third of the packages that I tried failing to build. This was a good motivator for me to learn how to fix the problem.

Once I fixed this self-imposed difficulty, it turned out that all of the top packages turned out to be API-compatible with the new release. It was definitely helpful to have a tool that let me find important users of the package.

Between the expanded test suite, better benchmarks, and this extra degree of checking, I am now feeling moderately confident that the sweeping changes I’ve made should be fairly safe to inflict on people. I hope I’m right! Please enjoy the results of my work.

package mojo status aeson 10000 clean snap-core 2030 requires --allow-newer conduit-extra 1816 clean fay 1740 clean snap 1681 requires --allow-newer conduit-extra 1492 clean persistent 1487 clean yaml 1313 clean io-streams 1205 requires --allow-newer configurator 1161 clean yesod-form 1077 requires --allow-newer snap-server 889 requires --allow-newer heist 881 requires --allow-newer parsers 817 clean cassava 643 clean And finally

When I was compiling the list of significant packages using attoparsec, I made a guess that the Unix rev would reverse the order of lines in a file. What it does instead seems much less useful: it reverses the bytes on each line.

Why do I mention this? Because my mistake led to the discovery that there’s a surprising number of Haskell packages whose names read at least as well backwards as forwards.

citats-dosey revres-foornus corpetic-codnap rotaremune-cesrapotta eroc-ognid rotaremune-ptth eroc-pans rotarugifnoc forp-colla-emit-chg sloot-ipa kramtsop stekcosbew morf-gnirtsetyb teppup-egaugnal nosea tropmish revirdbew troppus-ipa-krowten

(And finally-most-of-all, if you’re curious about where I measured my numbers, I used my 2011-era 2.2GHz MacBook Pro running 64-bit GHC 7.6.3. Server-class hardware should do way better.)

Categories: Offsite Blogs

Is there XMPP server written with haskell?

Haskell on Reddit - Fri, 05/30/2014 - 11:47pm

Hello All,

Is there XMPP server written with haskell?

Thank you.

submitted by 0xAX
[link] [comment]
Categories: Incoming News

Is anyone here using cloudhaskell or distributed-process in production?

Haskell on Reddit - Fri, 05/30/2014 - 9:24pm

I have followed distributed-process for a while now, and I'm curious to see if anyone here is using it, and for what sorts of applications. I will have an opportunity to begin a codebase from scratch, and I'm looking into the possibility of using Haskell for it. It will be running on a cluster, possibly with GPU integration. This is a scientific application, and the project director wants to see what happens to the code when non-physicists are the ones to start it.

I know that MPI and CUDA already have significant work done in this space, and I may just decide to go the C/C++ route. Has anyone here had a similar experience that they could share?

submitted by pythonista_barista
[link] [12 comments]
Categories: Incoming News

ghc-rts.pdf

del.icio.us/haskell - Fri, 05/30/2014 - 9:08pm
Categories: Offsite Blogs

An alternative Haskell home page

del.icio.us/haskell - Fri, 05/30/2014 - 6:44pm
Categories: Offsite Blogs

An alternative Haskell home page

del.icio.us/haskell - Fri, 05/30/2014 - 6:44pm
Categories: Offsite Blogs

Evaluating Haskell via SMS

Haskell on Reddit - Fri, 05/30/2014 - 5:07pm
Categories: Incoming News