start on fillInHoles

2025-01-24 18:15:42 -06:00 · 2025-01-24 18:15:42 -06:00 · 4e21eee91c
commit 4e21eee91c
parent 13d288b245
1 changed files with 5 additions and 1 deletions
--- 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