Extract package:happstack-server

Extract the value from a SetAppend. Note that a SetAppend is actually a CoPointed from: http://hackage.haskell.org/packages/archive/category-extras/latest/doc/html/Control-Functor-Pointed.html But lets not drag in that dependency. yet...