Day 7 Cleanup and modularisation

test/Day7Spec.hs

@@ -4,8 +4,9 @@ module Day7Spec (spec) where
 import Test.Hspec
 import Text.Heredoc
 
-import Day7
+import Shared
 import Day7.Parser
+import Day7.Interpreter
 import qualified Data.Map as Map
 
 inputPart1 :: String
@@ -72,10 +73,6 @@ cdOutParsed = [
     Listing [FileListing "f" 23, DirListing "foo", DirListing "bar"]
   ]
 
-forceRight :: Either a b -> b
-forceRight (Left _) = error "forced Right but got Left"
-forceRight (Right b) = b
-
 spec :: Spec
 spec =
   describe "Day7" $ do