antagonist 0.1.0.14 → 0.1.0.15

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• antagonist.cabal +1/−1
• server/Web/Antagonist/Server.hs +2/−2

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.0.14+version:             0.1.0.15  -- A short (one-line) description of the package. synopsis:            A web interface to Antisplice dungeons.

@@ -84,8 +84,8 @@ getPrompt :: MonadIO m => SessionState -> m String getPrompt ss = do   u <- liftIO $ mutctime-  ((ps,_),_) <- liftIO $ runRecorderT $ runSession (return ()) ss $ expand $-                formatTime defaultTimeLocale "%R $user #{health}H#?{ #{otitle} #{ohealth}H}" u+  ((ps,_),_) <- liftIO $ runRecorderT $ runSession (return ()) ss $ expand <=< expand $+                formatTime defaultTimeLocale "%R $prompt" u   return ps  getPlayR :: Yesod master => HandlerT SingleUserSub (HandlerT master IO) Html