Villefort 0.1.2.6 → 0.1.2.7

raw patch · 4 files changed

+11/−6 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Villefort.Todo: [pred] :: Row -> Double

- Villefort.Todo: Row :: Int -> String -> String -> String -> String -> Int -> Double -> Row

+ Villefort.Todo: Row :: Int -> String -> String -> String -> String -> Int -> Row

Files

Main.hs +6/−1
README.md +2/−1
Villefort.cabal +1/−1
src/Villefort/Todo.hs +2/−3

Main.hs view

@@ -5,4 +5,9 @@ import Villefort.Config  main :: IO ()-main = villefort def +main = villefort def {+  database= "/home/chris/data/todo.db"+  }++nosugar :: IO [String]+nosugar = pure ["SD","S","S"]

README.md view

@@ -1,7 +1,8 @@ # Villefort
 Villefort is a time managment system written in Haskell.
 
-## Version 1.2.6
+## Version 1.2.7
+- Fixed errors with Versions 1.2.6's core api.
 - Made log github graph reflect actual time on task.
 - removed predicted time field on main page.
 - Started writing tests.

Villefort.cabal view

@@ -1,5 +1,5 @@ name:                Villefort-version:             0.1.2.6+version:             0.1.2.7 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

src/Villefort/Todo.hs view

@@ -29,12 +29,11 @@                  description :: String,                  due :: String,                  subject :: String,-                 time :: Int,-                 pred :: Double+                 time :: Int                } deriving (Show,Eq)  toRow :: [String] -> Row-toRow x =  Row (read (x !! 0) :: Int) (x !! 1) (x !! 2) (x !! 3)( x !! 4)  (read ( x !! 5) :: Int) (read (x !! 6) :: Double)+toRow x =  Row (read (x !! 0) :: Int) (x !! 1) (x !! 2) (x !! 3) ( x !! 4)  (read ( x !! 5) :: Int)  updateTodos :: (MonadReader VConfig m, MonadIO m) => Int -> Int ->  m () updateTodos sqlId timeTaken = execQuery "insert into todo (id,Description,Title,Entered,Due,state,time,Subject) select id,Description,Title,Entered,datetime('now', 'localtime'),0,?,Subject from todo where id = ? limit 1" [ timeTaken, sqlId]