update, fix a bug

Some question might have many answers, which spilted by newline. This commit add this function to split answers with Data.Text.lines
Qinka · Nov 23, 2017 · 35cfb62 · 35cfb62
1 parent 6d530b2
commit 35cfb62
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fluffy/src/Main.hs b/fluffy/src/Main.hs
@@ -277,7 +277,7 @@ getGapFillingR i = do
     case answer of
       Just x' -> do
         let x = T.reverse . T.dropWhile (==' ') . T.reverse $ T.dropWhile (== ' ') x'
-            rt = x == gfAnswer
+            rt = x `elem` T.lines gfAnswer
             goal  = goal'  + (if rt then 1 else 0)
             total = total' + 1
         return (goal, total,GFForm rt)