haskell - Rebinding do notation for indexed monads -

-

i following conor mcbride's "kleisli arrows of outrageous fortune" paper , i've posted implementation of code here. briefly, defines following types , classes:

type :-> b = forall . -> b  class ifunctor f imap :: (a :-> b) -> (f :-> f b)  class (ifunctor m) => imonad m     skip :: :-> m     bind :: (a :-> m b) -> (m :-> m b)  data (a := i) j     v :: -> (a := i)

then defines 2 types of binds, latter of uses (:=) restrict initial index:

-- conor mcbride's "demonic bind" (?>=) :: (imonad m) => m -> (a :-> m b) -> m b (?>=) = flip bind  -- conor mcbride's "angelic bind"    (>>=) :: (imonad m) => m (a := j) -> (a -> m b j) -> m b m >>= f = bind (\(v a) -> f a) m

the latter bind works fine rebinding do notation use indexed monads rebindablesyntax extension, using following corresponding definitions return , fail:

return :: (imonad m) => -> m (a := i) return = skip . v  fail :: string -> m fail = error

... problem cannot former bind (i.e. (?>=)) work. tried instead defining (>>=) , return be:

(>>=) :: (imonad m) => m -> (a :-> m b) -> m b (>>=) = (?>=)  return :: (imonad m) => :-> m return = skip

then created data type guaranteed inhabit specific index:

data unit     unit :: unit ()

but when try rebind do notation using new definitions (>>=) , return, not work, demonstrated in following example:

-- without notation test1 = skip unit >>= \unit -> skip unit  -- notation test2 =     unit <- skip unit     skip unit

test1 type-checks, test2 not, weird, since thought rebindablesyntax did let do notation desugar test2 test1, if test1 type-checks, why not test2? error is:

couldn't match expected type `t0 -> t1'             actual type `a0 :-> m0 b0' expected type: m0 a0 i0 -> (t0 -> t1) -> m unit ()   actual type: m0 a0 i0 -> (a0 :-> m0 b0) -> m0 b0 i0 in stmt of 'do' block: unit <- skip unit in expression:   { unit <- skip unit;        skip unit }

the error remains when use explicit forall syntax instead of :-> type operator.

now, know there problem using "demonic bind", can't define (>>), still wanted see how far go it. can explain why cannot ghc desugar "demonic bind", when type-check?

iiuc, ghc desugarer runs after typechecker (source). explains why situation observe theoretically possible. typechecker has special typing rules do-notation, , may inconsistent typechecker desugarred code.

of course, it's reasonable expect them consistent, recommend filing ghc bug.


Comments

Post a Comment

Popular posts from this blog

django - How can I change user group without delete record -

-
on website user have 1 group. , user can change group. it's made user.groups.clear() and user.groups.add(new_group) but it's not efficient, because there 2 sql query: delete, insert. how can change group update query? user , group related each other using manytomanyfield . means intersection table exists relating both entities, , if don't specify model map (using through attribute) django creates 1 you. looking @ sources django.contrib.auth.models see that's case. fortunatly, can access intermediary model using through attribute of manager (in case, user.groups.through ). can use regular model. example: >>> alice = user.objects.create_user('alice', 'alice@example.com', 'alicepw') >>> employee = group.objects.create(name='employee') >>> manager = group.objects.create(name='manager') >>> alice.groups.add(employee) >>> alice.groups.all() [<group: employee...
Read more

java - EclipseLink JPA Object is not a known entity type -

-
i have strange problem eclipselink , object want persist. have 1 object (keypointlistimpl) stores object keypointimpl in list. persisting keypointimpl objects works great if try persist keypointlistimpl object java.lang.illegalargumentexception says object keypointimpl isn't known entity type. here keypointimpl code: @entity @table(name="keypoints") public class keypointimpl implements keypoint { @id @generatedvalue(strategy = generationtype.identity) private int id; @enumerated(enumtype.string) private detectortype keypointtype; private float x; private float y; private float size; private float angle; private float response; private int octave; private int classid; ... } here keypointlistimpl code: @entity @table(name="keypointlists") public class keypointlistimpl implements keypointlist { @id @generatedvalue(strategy = generationtype.identity) private int id; @onetoone(cascade={ca...
Read more

java - Need to add SOAP security token -

-
i need set custom soap header attribute on jax-ws generated webservice client. case webservice calls must go through proxy server requiring specific token (recieved web request header) present in soap request header. e.g.: 1 carserviceservice service = null; 2 service = new carserviceservice(new url(url), new qname(qname); 3 carserviceendpoint port = service.getcarserviceport(); it seems in line 3 wsdl retrieved , call fails due missing security token. 1 point direction on how done? a detailed example has been mentioned here: creating , deploying jax-ws web service on tomcat 6 this article shows how create , use security token .
Read more