update Demo.hs