Permalink
Browse files

Rename initializeAppState -> initializeGititState.

  • Loading branch information...
1 parent eaaabaf commit 2dea334c1183e182e2ee5310ccfeb89814322877 @jgm committed Jun 16, 2009
Showing with 7 additions and 7 deletions.
  1. +1 −1 Network/Gitit.hs
  2. +5 −5 Network/Gitit/State.hs
  3. +1 −1 gitit.hs
View
@@ -19,7 +19,7 @@ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
{- | Functions for embedding a gitit wiki into a Happstack application.
-}
-module Network.Gitit ( initializeAppState
+module Network.Gitit ( initializeGititState
, getDefaultConfig
, Config(..)
, User(..)
View
@@ -44,11 +44,11 @@ appstate = unsafePerformIO $ newIORef AppState { sessions = undefined
, cache = undefined
, plugins = undefined }
-initializeAppState :: MonadIO m
- => M.Map String User
- -> [Plugin]
- -> m ()
-initializeAppState users' plugins' = do
+initializeGititState :: MonadIO m
+ => M.Map String User
+ -> [Plugin]
+ -> m ()
+initializeGititState users' plugins' = do
updateAppState $ \s -> s { sessions = Sessions M.empty
, users = users'
, cache = emptyCache
View
@@ -78,7 +78,7 @@ main = do
unless (null $ pluginModules conf') $ logM "gitit" WARNING "Finished loading plugins."
-- initialize state
- initializeAppState users' plugins'
+ initializeGititState users' plugins'
-- setup the page repository and static files, if they don't exist
createRepoIfMissing conf'

0 comments on commit 2dea334

Please sign in to comment.