committing my broken haskell