X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhpc%2FHpcMap.hs;h=873fc5073baeb56a5faa7baa7d8cd001712a3cfe;hb=9000c679a8904a398022b96e01649120e024c615;hp=b1a0f2f781057dc395dfe8bb042b38a70b6e55ce;hpb=513f08c0a11a39ed2e25aa30de51fb0513fa1ccb;p=ghc-hetmet.git

diff --git a/utils/hpc/HpcMap.hs b/utils/hpc/HpcMap.hs
index b1a0f2f..873fc50 100644
--- a/utils/hpc/HpcMap.hs
+++ b/utils/hpc/HpcMap.hs
@@ -10,6 +10,7 @@ import qualified Data.Map as Map
 lookup :: Ord key => key -> Map key elt -> Maybe elt
 fromList :: Ord key => [(key,elt)] -> Map key elt
 fromListWith :: Ord k => (a -> a -> a) -> [(k, a)] -> Map k a
+toList :: Ord key => Map key elt -> [(key,elt)]
 
 #if __GLASGOW_HASKELL__ < 604
 type Map key elt = Map.FiniteMap key elt