Added file write for training

Author: jugrajb

.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/bin/chatbot-exe

@@ -0,0 +1,25 @@
+name: project
+version: 0.1.0.0
+id: project-0.1.0.0-2Scmje53n8s89ErMJTJgIF
+key: project-0.1.0.0-2Scmje53n8s89ErMJTJgIF
+license: BSD-3-Clause
+copyright: 2019 Author name here
+maintainer: [email protected]
+author: Author name here
+homepage: https://github.com/githubuser/project#readme
+description:
+    Please see the README on GitHub at <https://github.com/githubuser/project#readme>
+abi: 6adbca45f363d8af52d0ac81af3c4e40
+exposed: True
+exposed-modules:
+    Lib
+hidden-modules: Paths_project
+import-dirs: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/lib/x86_64-osx-ghc-8.6.5/project-0.1.0.0-2Scmje53n8s89ErMJTJgIF
+library-dirs: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/lib/x86_64-osx-ghc-8.6.5/project-0.1.0.0-2Scmje53n8s89ErMJTJgIF
+dynamic-library-dirs: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/lib/x86_64-osx-ghc-8.6.5
+data-dir: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/share/x86_64-osx-ghc-8.6.5/project-0.1.0.0
+hs-libraries: HSproject-0.1.0.0-2Scmje53n8s89ErMJTJgIF
+depends:
+    base-4.12.0.0
+haddock-interfaces: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/doc/project-0.1.0.0/project.haddock
+haddock-html: /Users/JugrajB/cpsc-312/project/.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/doc/project-0.1.0.0

.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/pkgdb/package.cache

@@ -12,6 +12,9 @@ readCsv filename = do
     file <- readFile filename
     return [splitsep (==',') row | row <- ( splitsep (=='\n') file )]
 
+writeCsv :: FilePath -> [Char] -> [Char] -> IO ()
+writeCsv filename c q = appendFile filename ("\n" ++ c ++ "," ++ q)
+
 fetchAnswer :: FilePath -> Category -> IO String
 fetchAnswer filename c = do
     file <- readFile filename

.stack-work/install/x86_64-osx/e84c8ad8d8bb3370e9a352676bb26703752eda667e2ea564117ad883c9cd9779/8.6.5/pkgdb/project-0.1.0.0-2Scmje53n8s89ErMJTJgIF.conf

@@ -56,6 +56,8 @@ module Main where
                   hPutStrLn hdl ("Category: " ++ category)
 
                   let prob = probabilityForCategory chat_classifier question category
+                  -- hPutStrLn hdl ("Prob: " ++ (show prob))
+
                   let ansDir = (curdDir ++ "/project/src/answers.csv")
                   str <- fetchAnswer ansDir (dropWhile (==' ') category)
 
@@ -65,8 +67,9 @@ module Main where
                   hPutStrLn hdl "Chatbot: To help us improve, was this answer helpful? (y/n)"
                   answer <- fmap init (hGetLine hdl)
                   if answer == "y"
-                    then 
+                    then do
                       --- if answer is good, add question with category to questions.csv
+                      write <- writeCsv (curdDir ++ "/project/src/questions.csv") (dropWhile (==' ') category) question
                       hPutStrLn hdl "Chatbot: If you need anymore help feel free to ask another question, otherwise type 'quit' to exit"
                     else
                       -- nothing

project/app/ChatClassifier.hs

@@ -6,4 +6,5 @@ I forgot my password, password
 Whats my password, password
 My email doesn't work, email
 When is my flight, leaving_flight
-What is my flight number, flight_number
+What is my flight number, flight_number
+password,My password