Villefort 0.1.1.8 → 0.1.1.9

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• Villefort.cabal +1/−1
• src/Villefort/Todo.hs +2/−2

@@ -1,5 +1,5 @@ name:                Villefort-version:             0.1.1.8+version:             0.1.1.9 synopsis: Villefort is a task manager and time tracker written in haskell. description: Villefort is a browser based time tracker. homepage:            https://github.com/Chrisr850/Villefort#readme

@@ -26,7 +26,7 @@  qetTasks'  :: (MonadReader VConfig m, MonadIO m) => m [Row] qetTasks' = do-  x <- makeQuery' "select id, Title, Description, Due, Subject,  sum(time),pred from todo where state=1 group by Due order by Due"+  x <- makeQuery' "select id, Title, Description, Due, Subject,  sum(time),pred from todo where state=1 group by id order by Due"   return (map toRow x)  convRow' :: [[SqlValue]] -> [[String]]@@ -131,8 +131,8 @@     let sqlId   = read (rawid!! 1) :: Int     let rawtime = Data.List.Split.splitOn "=" $ (da !! 0)     let integerTime = read (rawtime !! 1) :: Int-    if  integerTime /= 0 then       do updateTask sqlId integerTime -- update task time+    if  integerTime /= 0 then          delTask sqlId  -- then remove from database     else  delTask sqlId -- otherwise just remove from database     return ()