changed path

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
+    writeFile questionPath newqs