Experimenting with Haskell and Full Text Search - View it on GitHub