From 04e42a470af1006205b6cf51acf7556c3b2359e5 Mon Sep 17 00:00:00 2001 From: Aearnus Date: Fri, 25 May 2018 01:40:25 -0700 Subject: [PATCH] working use case --- app/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/app/Main.hs b/app/Main.hs index 5e14ef1..48be450 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -2,6 +2,7 @@ module Main where import SixtyFiveOhTwo.Instruction import Control.Monad.State +import qualified Data.ByteString as B accumulatorLoadNStore :: Instruction accumulatorLoadNStore = do @@ -15,4 +16,4 @@ myProgram = do call "accumulatorLoadNStore" main :: IO () -main = print $ runState myProgram emptyState +main = B.putStr $ runInstructions myProgram