diff options
| author | Daniel Firth <locallycompact@gmail.com> | 2018-07-04 08:55:59 +0100 |
|---|---|---|
| committer | Daniel Firth <locallycompact@gmail.com> | 2018-07-04 09:50:16 +0100 |
| commit | f2d91509756d9ff24ed085d252e437505911d99f (patch) | |
| tree | bf3b65bfe2caf9b3b576eaa309582adb35ed7d27 | |
| parent | f5994214ccf25be5d0b46159184f87fbc1481050 (diff) | |
eta reduce in Bustle/Application/Monad.hs
| -rw-r--r-- | Bustle/Application/Monad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Bustle/Application/Monad.hs b/Bustle/Application/Monad.hs index 7a5f749..e326f7d 100644 --- a/Bustle/Application/Monad.hs +++ b/Bustle/Application/Monad.hs @@ -94,7 +94,7 @@ embedIO act = B $ do liftIO $ act r makeCallback :: Bustle config state a -> BustleEnv config state -> IO a -makeCallback (B act) x = runReaderT act x +makeCallback (B act) = runReaderT act runB :: config -> state -> Bustle config state a -> IO a runB config s (B act) = do |