bank-commands.txt still works

GregoryTravis · Sep 16, 2019 · cce3032 · cce3032
1 parent aade127
commit cce3032
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 3 deletions.
diff --git a/bank-commands.txt b/bank-commands.txt
@@ -0,0 +1,4 @@
+createAccount foo
+createAccount bar
+deposit foo 100
+deposit bar 120
diff --git a/src/Main.hs b/src/Main.hs
@@ -8,3 +8,4 @@ main = do
   -- deltaDemo
   -- expDemo
   oldWebDemo
+  -- bankProcess
diff --git a/src/Tmi.hs b/src/Tmi.hs
@@ -1,7 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE TypeOperators #-}
 
-module Tmi (oldWebDemo) where
+module Tmi
+( oldWebDemo
+, bankProcess) where
 
 import Control.Applicative
 import Control.Monad.State
@@ -272,9 +274,9 @@ bank args = do
   processBankCommand (map T.unpack args)
   return $ vconst $ WRRedirect "?q=%5B%22home%22%5D"
 
---bankProcess = do
+bankProcess = do
   --copyFile "init-history.db" "history.db"
-  --processLines "bank-commands.txt" processBankCommandString
+  processLines "bank-commands.txt" processBankCommandString
 
 bankPage :: [Text] -> WebTMI
 bankPage [] = do