Haskell log 1 update