nothing working for now

bfi-haskell/app/Main.hs

@@ -3,4 +3,4 @@ module Main where
 import Lib
 
 main :: IO ()
-main = someFunc
+main = main

bfi-haskell/src/Lib.hs

@@ -1,6 +1,29 @@
 module Lib
-    ( someFunc
+    ( main
     ) where
 
-someFunc :: IO ()
+import System.Environment
-someFunc = putStrLn "someFunc"
+import Data.List
+import System.IO
+
+main :: IO ()
+main = do
+   args <- getArgs
+   program <- readFile $ head args
+   interpret program
+
+data Memory = Memory [Int] Int [Int]
+
+interpret :: String -> IO ()
+interpret [] = IO()
+interpret [x:xs] = do
+  eval x
+  interpret xs
+
+
+eval :: String -> Memory -> IO Memory
+eval s (Memory sx x xs)
+| x == "+" = Memory sx (x + 1) xs
+| x == "-" = Memory sx (x - 1) xs
+otherwise = undefined
+eval _ = undefined

bfi-haskell/test/Spec.hs

@@ -1,2 +0,0 @@
-main :: IO ()
-main = putStrLn "Test suite not yet implemented"