More haskell code, duh