Почему этот код вызывает ошибку segfault?

Я пытаюсь написать модуль, который анализирует xml из api, удаляет некоторую информацию и печатает результат как json, но на этапе печати у меня возникла икота. Если я печатаю, то я действительно вижу, что там есть правильные данные, однако вызов, который должен преобразовать записи в json, encode shows, вызывает segfault.

{-# LANGUAGE Arrows, NoMonomorphismRestriction, OverloadedStrings #-}
import Network.HTTP
import Text.XML.HXT.Core
import Data.Aeson
import qualified Data.ByteString.Lazy.Char8 as LazyByteString

openUrl :: String -> IO String
openUrl url = getResponseBody =<< simpleHTTP (getRequest url)

composeSearch :: String -> String
composeSearch query = "http://services.tvrage.com/feeds/search.php?show=" ++ urlEncode query

searchShow :: String -> IO String
searchShow query = openUrl $ composeSearch query

data TvShow = TvShow { showName, showId :: String } deriving (Show)

getShow = deep (isElem >>> hasName "show") >>>
    proc x -> do
        name <- getText <<< getChildren <<< deep (hasName "name")  -< x
        id <- getText <<< getChildren <<< deep (hasName "showid") -< x 
        returnA -< TvShow { showName = name, showId = id }

instance ToJSON TvShow where
    toJSON (TvShow name id) = object ["name" .= name, "id" .= id]

main :: IO ()
main = do
    results <- searchShow "Always Sunny" 
    shows <- runX (readString [ withValidate  no ] results >>> getShow)
    putStrLn (LazyByteString.unpack (encode shows))

Изменить: Как указал пользователь 1891025, это может быть проблема с моей версией машины или пакета.

• Система: Ubuntu 11.04 32 бит
• Aeson v0.6.1.0
• GHC v7.2.1

Этот вопрос становится все более конкретным, поэтому я отвечу на него в irc, но если у кого-нибудь есть помощь, дайте мне знать!