diff options
| -rw-r--r-- | src/Counter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Counter.hs b/src/Counter.hs index 317f96a..37b36dc 100644 --- a/src/Counter.hs +++ b/src/Counter.hs @@ -45,7 +45,7 @@ createSenateCounter f a b = do h <- IO.openFile f IO.ReadMode let readFunc n p = if (n > numLines) then return p else do t0 <- IO.hGetLine h - let t1 = CSV.parseRecord CSV.defaultSettings t0 + let t1 = CSV.parseRecord CSV.defaultSettings (t0 ++ "\n") t2 = Maybe.listToMaybe . reverse . Either.fromRight $ t1 t3 = Pref.parsePreferences (length a) (length b) (Maybe.fromJust t2) t4 = Pref.normalise a b (Either.fromRight t3) |