Random

You should've opened this PR
I don't have one right now. As i said, it can stay as it is
On Nov 13, 2014 12:25 PM, "Bartek Banachewicz" <notifications@github.com>
wrote:

> In potato-server/Potato/Web/App.hs:
>
> > @@ -30,49 +44,73 @@ get = executeWithCors Scotty.get
> >
> >  emptyJsonResponse = json $ object []
> >
> > -app :: String -> GameState -> ScottyT Text (WebM GameState) ()
> > -app clientDir defaultGameState = do
> > +-- This is a rather generic function that allows easily
> > +-- narrowing a State computation via a Lens.
> > +hoistStateWithLens :: S.MonadState outerState m =>
> > +                      Simple Lens outerState innerState ->
> > +                      S.State innerState a ->
> > +                      m a
> > +hoistStateWithLens acc op = do
>
> Open for improvement suggestions.
>
> —
> Reply to this email directly or view it on GitHub
> <https://github.com/bananu7/potato-empires/pull/42/files#r20284765>.
>