Commit fb93f4fc authored by Thomas van Noort's avatar Thomas van Noort

Fixed error in two examples, changed TxtFile to LSTxtFile

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/branches/fancyTasks@323 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 7e86208c
......@@ -86,7 +86,7 @@ where
// database specialized
marksId :: DBid [Mark]
marksId = mkDBid "marks" TxtFile
marksId = mkDBid "marks" LSTxtFile
readMarksDB :: Task [Mark]
readMarksDB = readDB marksId
......
......@@ -133,13 +133,13 @@ where
// reading and writing of storages
newsGroupsId :: (DBid NewsGroups)
newsGroupsId = mkDBid "newsGroups" TxtFile
newsGroupsId = mkDBid "newsGroups" LSTxtFile
readerId :: Int -> (DBid Subscriptions)
readerId i = mkDBid ("reader" <+++ i) TxtFile
readerId i = mkDBid ("reader" <+++ i) LSTxtFile
groupNameId :: String -> (DBid NewsGroup)
groupNameId name = mkDBid ("NewsGroup-" +++ name) TxtFile
groupNameId name = mkDBid ("NewsGroup-" +++ name) LSTxtFile
readNewsGroups :: Task NewsGroups
readNewsGroups = readDB newsGroupsId
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment