projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
refactor f0 into separate files
[fleet.git]
/
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}