A simple CMS in Haskell