From 4e21eee91c33166fb06a47f8b2ac5713c33e5171 Mon Sep 17 00:00:00 2001 From: Rowan Torbitzky-Lane Date: Fri, 24 Jan 2025 18:15:42 -0600 Subject: [PATCH] start on fillInHoles --- src/Instructions/GenericInstructions.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/Instructions/GenericInstructions.hs b/src/Instructions/GenericInstructions.hs index 308d261..9cb28a7 100644 --- a/src/Instructions/GenericInstructions.hs +++ b/src/Instructions/GenericInstructions.hs @@ -3,7 +3,11 @@ module Instructions.GenericInstructions where import Control.Lens import State --- import Debug.Trace +-- import Debug.Trace + +-- Files in the spaces in [[a]] with [a] +fillInHoles :: [a] -> [[a]] -> [a] +fillInHoles filler toFill = undefined -- TODO notEmptyStack :: State -> Lens' State [a] -> Bool notEmptyStack state accessor = not . null $ view accessor state