From cc8728d007a9c8c0f1f2dedc9f8a7f9a4ad6cc44 Mon Sep 17 00:00:00 2001 From: wes Date: Sat, 7 Apr 2012 16:05:45 -0400 Subject: [PATCH] changed path --- tell.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tell.hs b/tell.hs index 59dca88..8a0be61 100644 --- a/tell.hs +++ b/tell.hs @@ -6,7 +6,7 @@ import System.Console.Readline import Text.Read.HT import qualified System.IO.Strict as So -questionPath = "/home/wes/haskell/Questioner/questions.json" +questionPath = "./questions.json" check = (readline "> ") >>= output where output (Nothing) = return Nothing @@ -34,4 +34,4 @@ refreshedQuestions = liftM2 (++) (liftM decodeQuestions getQuestionFile) (liftM main = do newqs <- (liftM encodeQuestions refreshedQuestions) - writeFile questionPath newqs \ No newline at end of file + writeFile questionPath newqs