summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAliceReuter <>2018-10-20 02:36:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-10-20 02:36:00 (GMT)
commit40665e4bd9d4c91e784c5d61e42233d3c73da0eb (patch)
treead3e183fd28b53a201e3b277b3cc1fefa9d13c1e
parent5224c13c849590fc81c702c1e83a396e365d68b3 (diff)
version 0.1.2.160.1.2.16
-rw-r--r--Main.hs40
-rw-r--r--README.md10
-rw-r--r--Villefort.cabal2
3 files changed, 8 insertions, 44 deletions
diff --git a/Main.hs b/Main.hs
index b7050cd..bfb5faf 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,43 +1,7 @@
module Main where
import Villefort.Server (villefort)
-import Villefort.Config (defaultConfig,defWeekly)
-import Villefort.Definitions(database
- ,monday
- ,tuesday
- ,wednesday
- ,thursday
- ,friday
- ,weekly)
+import Villefort.Config (defaultConfig)
main :: IO ()
-main = villefort defaultConfig {
- database= "/home/alice/dotfiles/todo.db"
- ,weekly = utSchedule
-
- }
-
-utSchedule = defWeekly {
- monday = [return ["Type up m408c notes","408c notes","m408"]
- ,return ["Type up ugs303 lecture notes","ugs303 notes","ugs303"]
- ,return ["Do m408c homework","m408c hw","m408"]
- ,return ["Do cs314hw for Friday","cs314 hw", "cs314"]
- ,return ["Do cs311hw for Friday","cs311 hw", "cs211"]
- ],
- tuesday = [return ["Type up cs311 lecture notes","cs311 notes","cs311"]
- ,return ["Type up cs314 lecture notes","cs314 notes","cs314"]
- ],
- wednesday = [return ["Type up m408c notes","408c notes","m408"]
- ,return ["Type up ugs303 lecture notes","ugs303 notes","ugs303"]
- ,return ["Do m408c homework","m408c hw","m408"]
- ],
- thursday = [return ["Type up cs311 lecture notes","cs311 notes","cs311"]
- ,return ["Type up cs314 lecture notes","cs314 notes","cs314"]
- ],
-
- friday = [return ["Type up m408c notes","408c notes","m408"]
- ,return ["Type up ugs303 lecture notes","ugs303 notes","ugs303"]
- ,return ["Do m408c homework","m408c hw","m408"]
- ]
- }
-
+main = villefort defaultConfig
diff --git a/README.md b/README.md
index da9c098..b42216b 100644
--- a/README.md
+++ b/README.md
@@ -25,11 +25,11 @@ data Task = Task {title :: String,
Example
```haskell
-cs314n :: IO Task
-cs314n = pure $ Task {
- title = "cs314 notes",
- description = "Type up cs314 lecture notes",
- subject = "cs314",
+cs121n :: IO Task
+cs121n = pure $ Task {
+ title = "cs121 notes",
+ description = "Type up cs121 lecture notes",
+ subject = "cs121",
due = Today}
```
### Storing Vars in the Database
diff --git a/Villefort.cabal b/Villefort.cabal
index 868c610..305c558 100644
--- a/Villefort.cabal
+++ b/Villefort.cabal
@@ -1,5 +1,5 @@
name: Villefort
-version: 0.1.2.15
+version: 0.1.2.16
synopsis: Villefort is a task manager and time tracker
description: Villefort is a browser based time tracker built around a sqlite3 database.
homepage: https://github.com/alicereuter/Villefort#readme