From 7e33afef4fa8cf7face2a6be737994db5b46c8a2 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Mon, 17 Sep 2018 13:15:20 -0400
Subject: [PATCH] Remove comments

---
 src/Data/Abstract/ScopeGraph.hs | 31 -------------------------------
 1 file changed, 31 deletions(-)

diff --git a/src/Data/Abstract/ScopeGraph.hs b/src/Data/Abstract/ScopeGraph.hs
index 33a5c2a8e..7c06df877 100644
--- a/src/Data/Abstract/ScopeGraph.hs
+++ b/src/Data/Abstract/ScopeGraph.hs
@@ -239,34 +239,3 @@ deleteFrame address = Heap . Map.delete address . unHeap
 -- | The number of frames in the `Heap`.
 heapSize :: Heap scope address value -> Int
 heapSize = Map.size . unHeap
-
--- -- | Look up the list of values stored for a given address, if any.
--- scopeLookupAll :: Ord address => address -> Heap address value -> Maybe [value]
--- scopeLookupAll address = fmap toList . scopeLookup address
-
--- -- | Append a value onto the cell for a given address, inserting a new cell if none existed.
--- scopeInsert :: (Ord address, Ord value) => address -> value -> Scope address value -> Scope address value
--- scopeInsert address value = flip snoc (address, value)
-
--- -- | Manually insert a cell into the scope at a given address.
--- scopeInit :: Ord address => address -> Set value -> Scope address value -> Scope address value
--- scopeInit address cell (Scope h) = Scope (Map.insert address cell h)
-
--- -- | The number of addresses extant in a 'Scope'.
--- scopeSize :: Scope address value -> Int
--- scopeSize = Map.size . unScope
-
--- -- | Restrict a 'Scope' to only those addresses in the given 'Live' set (in essence garbage collecting the rest).
--- scopeRestrict :: Ord address => Scope address value -> Live address -> Scope address value
--- scopeRestrict (Scope m) roots = Scope (Map.filterWithKey (\ address _ -> address `liveMember` roots) m)
-
--- scopeDelete :: Ord address => address -> Scope address value -> Scope address value
--- scopeDelete addr = Scope . Map.delete addr . unScope
-
--- instance (Ord address, Ord value) => Reducer (address, value) (Scope address value) where
---   unit = Scope . unit
---   cons (addr, a) (Scope scope) = Scope (cons (addr, a) scope)
---   snoc (Scope scope) (addr, a) = Scope (snoc scope (addr, a))
-
--- instance (Show address, Show value) => Show (Scope address value) where
---   showsPrec d = showsUnaryWith showsPrec "Scope" d . map (second toList) . Map.pairs . unScope