github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-02 20:41:38 +03:00
Code Issues Projects Releases Wiki Activity

Define showsPrec tacitly.

Browse Source
This commit is contained in:
Rob Rix 2018-05-15 15:45:31 -04:00
parent 3a03b86f22
commit f4a2fb2d41
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/Heap.hs
View File

@ -41,4 +41,4 @@ heapRestrict (Heap m) roots = Heap (Monoidal.filterWithKey (\ address _ -> Addre
instance (Show location, Show (cell value)) => Show (Heap location cell value) where
showsPrec d (Heap heap) = showsUnaryWith showsPrec "Heap" d (Monoidal.pairs heap)
showsPrec d = showsUnaryWith showsPrec "Heap" d . Monoidal.pairs . unHeap