empty Block for last block instruction

2025-01-22 00:31:42 -06:00 · 2025-01-22 00:31:42 -06:00 · 85d4fd33b0
commit 85d4fd33b0
parent a61c9e7133
1 changed files with 1 additions and 0 deletions
--- a/src/Instructions/CodeInstructions.hs
+++ b/src/Instructions/CodeInstructions.hs
@ -20,6 +20,7 @@ extractFirstFromBlock (Block (x : _)) = x
 extractFirstFromBlock gene = gene

 extractLastFromBlock :: Gene -> Gene
+extractLastFromBlock (Block []) = Block []
 extractLastFromBlock (Block xs) = last xs
 extractLastFromBlock gene = gene