Fix Haskell list bug