src/Util.lhs

   1 \begin{code}
   2 -- Copyright 2008 the Contributors, as shown in the revision logs.
   3 -- Licensed under the Apache Public Source License 2.0 ("the License").
   4 -- You may not use this file except in compliance with the License.
   5
   6 module Util where
   7
   8 join x []      = []
   9 join x [a]     = a
  10 join x (a:b:c) = a++x++(join x (b:c))
  11 \end{code}