Commit 2c5f008c authored by Steffen Michels's avatar Steffen Michels

made 'sharedStore' version specific

parent 3186e4c4
......@@ -97,7 +97,7 @@ basicAPIExamples =
Start :: *World -> *World
Start world
= startEngine [ publish "/" (\_ -> loginAndManageWorkList title basicAPIExamples <<@ ApplyLayout (setUIAttributes (titleAttr title)))
, publish "/persons" (const enterPersons)
, publish "/persons23" (const enterPersons)
] world
where
title = "iTasks Example Collection"
......
......@@ -26,7 +26,7 @@ where
sharedStore :: !String !a -> SDS () a a | JSONEncode{|*|}, JSONDecode{|*|}, TC a
sharedStore storeId defaultV
= sdsFocus storeId (storeShare NS_APPLICATION_SHARES False InJSONFile (Just defaultV))
= sdsFocus storeId (storeShare NS_APPLICATION_SHARES True InJSONFile (Just defaultV))
storeNamespaces :: SDS () [String] ()
storeNamespaces = createReadOnlySDS read
......
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