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

Added a line to handle some missing cases in ShowCode

Browse Source
This commit is contained in:
Neil Brown 2009-05-22 21:57:17 +00:00
parent 734685d715
commit 677d78a229
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
common/ShowCode.hs
View File

@ -546,6 +546,7 @@ instance ShowOccam A.Specification where
= do item <- currentContext
(showOccamLine (return (item ++ " ") >> showName n >> showOccamM rep))
-- TODO handle the indent
showOccamM s = tell ["Missing case: ", show s]
showProtocolItem :: (A.Name, [A.Type]) -> CodeWriter ()