Commit e8d17b49 authored by John van Groningen's avatar John van Groningen

fix remove WrappedFileArray

parent 046777fd
......@@ -133,8 +133,6 @@ showNode _ (WrappedBoolArray a)
= showBasicArray a
showNode _ (WrappedRealArray a)
= showBasicArray a
showNode _ (WrappedFileArray a)
= showBasicArray a
showNode options (WrappedArray a)
= ["{" : flatten (intersperse [", "] [showWrapped options el \\ el <-: a])] ++ ["}"]
showNode options (WrappedRecord descriptor args)
......@@ -206,8 +204,6 @@ instance prune (WrappedNode a) | prune a where
= pruneBasicArray depth maxDepth maxBreadth a
prune depth maxDepth maxBreadth (WrappedRealArray a)
= pruneBasicArray depth maxDepth maxBreadth a
prune depth maxDepth maxBreadth (WrappedFileArray a)
= pruneBasicArray depth maxDepth maxBreadth a
prune depth maxDepth maxBreadth (WrappedString a)
| size a > maxBreadth
= WrappedString ((a % (0, maxBreadth-1)) +++ MaxBreadthString)
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment