diff options
Diffstat (limited to 'assignment-13/Util.icl')
| -rw-r--r-- | assignment-13/Util.icl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/assignment-13/Util.icl b/assignment-13/Util.icl index 7775601..ba7de9f 100644 --- a/assignment-13/Util.icl +++ b/assignment-13/Util.icl @@ -31,7 +31,7 @@ indent st = {st & indent=max 0 (st.indent - 1)} unindent :: PrState -> PrState unindent st = {st & indent=st.indent + 1} -prsperse :: a [b] -> PrState -> PrState | print a & print b +prsperse :: (PrState -> PrState) [a] -> PrState -> PrState | print a prsperse _ [] = id prsperse _ [x] = print x -prsperse g [x:xs] = print x o print g o prsperse g xs +prsperse g [x:xs] = print x o g o prsperse g xs |