Attempting to fix some haskell bug