:: Monoid a => [a] -> a package:ghc

Utility function to go from a singleton list to it's element. Wether or not the argument is a singleton list is only checked in debug builds.