From 4ab2d17b5ef87cc0f3e6321c7cc7df99e304a19f Mon Sep 17 00:00:00 2001 From: Patrick Thomson Date: Fri, 23 Mar 2018 14:39:57 -0400 Subject: [PATCH] stray whitespace --- src/Control/Abstract/Evaluator.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Control/Abstract/Evaluator.hs b/src/Control/Abstract/Evaluator.hs index 13c5a0bdd..422e2066b 100644 --- a/src/Control/Abstract/Evaluator.hs +++ b/src/Control/Abstract/Evaluator.hs @@ -117,7 +117,6 @@ modifyHeap f = do s <- getHeap putHeap $! f s - -- | Look up the cell for the given 'Address' in the 'Heap'. lookupHeap :: (MonadHeap value m, Ord (LocationFor value)) => Address (LocationFor value) value -> m (Maybe (CellFor value)) lookupHeap = flip fmap getHeap . heapLookup