Skip to content

Instantly share code, notes, and snippets.

@rhysd
Created February 8, 2014 04:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rhysd/8876602 to your computer and use it in GitHub Desktop.
Save rhysd/8876602 to your computer and use it in GitHub Desktop.

BEFORE

(YesodAuth master, PersistMonadBackend (b (HandlerT master IO)) ~ PersistEntityBackend val, b ~ YesodPersistBackend master, Key val ~ AuthId master, PersistStore (b (HandlerT master IO)), PersistEntity val, YesodPersist master, Typeable val) => HandlerT master IO (Maybe (AuthId master))

AFTER

(
    YesodAuth master,
    PersistMonadBackend (
        b (
            HandlerT master IO
        )
    ) ~ PersistEntityBackend val,
    b ~ YesodPersistBackend master,
    Key val ~ AuthId master,
    PersistStore (
        b (
            HandlerT master IO
        )
    ),
    PersistEntity val,
    YesodPersist master,
    Typeable val
) =>
HandlerT master IO ( 
    Maybe ( 
        AuthId master
    )
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment