coroutine-object

Deprecated Please look at http://github.com/wavewave/hoodle and coroutine-object in that repo.

coroutine-object's People

Contributors

Stargazers

Watchers

coroutine-object's Issues

Build error with Hackage coroutine-object-0.2.0.0

I tried to build coroutine-object-0.2.0.0 from Hackage using cabal-install, but got the following error:

[10 of 10] Compiling Control.Monad.Trans.Crtn.Logger.Simple ( src/Control/Monad/Trans/Crtn/Logger/Simple.hs, dist/build/Control/Monad/Trans/Crtn/Logger/Simple.o )

src/Control/Monad/Trans/Crtn/Logger/Simple.hs:21:36:
    Couldn't match type ‘t1’
                  with ‘Control.Monad.Trans.Free.FreeT
                          (Rqst (Res LogOp) (Arg LogOp)) m0 b0’
      ‘t1’ is untouchable
        inside the constraints (i ~ [Char], o ~ ())
        bound by a pattern with constructor
                   WriteLog :: LogOp String (),
                 in a case alternative
        at src/Control/Monad/Trans/Crtn/Logger/Simple.hs:21:17-24
      ‘t1’ is a rigid type variable bound by
           the inferred type of f :: t -> Arg LogOp -> t1
           at src/Control/Monad/Trans/Crtn/Logger/Simple.hs:19:9
    Expected type: Control.Monad.Trans.Free.FreeT
                     (Rqst (Res LogOp) (Arg LogOp)) m0 ()
                   -> Control.Monad.Trans.Free.FreeT
                        (Rqst (Res LogOp) (Arg LogOp)) m0 b0
                   -> t1
      Actual type: Control.Monad.Trans.Free.FreeT
                     (Rqst (Res LogOp) (Arg LogOp)) m0 ()
                   -> Control.Monad.Trans.Free.FreeT
                        (Rqst (Res LogOp) (Arg LogOp)) m0 b0
                   -> Control.Monad.Trans.Free.FreeT
                        (Rqst (Res LogOp) (Arg LogOp)) m0 b0
    Relevant bindings include
      f :: t -> Arg LogOp -> t1
        (bound at src/Control/Monad/Trans/Crtn/Logger/Simple.hs:19:9)
    In a stmt of a 'do' block:
      lift (scribe ("log number " ++ show n ++ " : " ++ msg))
    In the expression:
      do { lift (scribe ("log number " ++ show n ++ " : " ++ msg));
           req' <- request (Res WriteLog ());
           f (n + 1) req' }
    In a case alternative:
        Arg WriteLog msg
          -> do { lift (scribe ("log number " ++ show n ++ " : " ++ msg));
                  req' <- request (Res WriteLog ());
                  f (n + 1) req' }