suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed a use of the head function from PrettyShow

Browse Source
This commit is contained in:
Neil Brown 2008-02-05 16:19:00 +00:00
parent 1b7e0985cc
commit 093070454b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
common/PrettyShow.hs
View File

@ -87,7 +87,9 @@ foldPatternList (Match con patList)
= if (showConstr con == "(:)") = if (showConstr con == "(:)")
then then
--patList must contain two items. The first is the list item (to be returned), the second is a nested list -- possibly the empty list --patList must contain two items. The first is the list item (to be returned), the second is a nested list -- possibly the empty list
(head patList) : (foldPatternList $ last patList) (case patList of
(p:ps:[]) -> p : (foldPatternList ps)
_ -> error "List constructor with other than two children")
else [] else []
foldPatternList _ = [] foldPatternList _ = []