src/edu/berkeley/fleet/f0/Util.lhs

   1 \begin{code}
   2 module Util where
   3
   4 indent []       = []
   5 indent ('\n':q) = "\n  "++(indent q)
   6 indent (a:b)    = a:(indent b)
   7
   8 join c []    = ""
   9 join c [x]   = x
  10 join c (x:y) = x++c++(join c y)
  11 \end{code}