Question

I’m just curious why I have to write this,

instance (HzMonad , Data.Suitable.Suitable  α, γ ~ ExprTyp  α) => VarDecl  γ where
    var = varhz

instead of this

instance (HzMonad , Data.Suitable.Suitable  α) => VarDecl  (ExprTyp  α) where
    var = varhz

-- error
Hz2/Language.hs:114:53:
    Illegal type synonym family application in instance: ExprTyp  α
    In the instance declaration for `VarDecl  (ExprTyp  α)'

where

varhz ::
  (HzMonad , Data.Suitable.Suitable  α) =>
  String -> ExprTyp  α ->  (ExprTyp  α)

What is the tilde anyway? Thanks very much.

Answer 1

I think the problem is that everything on the right hand side of
=>
must be either a type constructor or type variable. ExprTyp could refer to multiple differet type constructors. Replacing this with an equality constraint will indeed work, but the resulting instance will be effectively useless, since the compiler won’t be able to deduce anything about γ given that it’s an ExprTyp — ExprTyp could be aliased to anything.

In my situation — I’m trying to write a DSL monad — the solution is to wrap all uses of the associated type in a newtype constructor. For example, if we start with,

class MyDSL m a where
    type ExprTyp m :: * -> *
    printE :: ExprTyp m a -> m ()

then wrapping this will result in

newtype ExprT a = ExprT a
class MyDSL m a where
    type ExprTyp m :: * -> *
    printE :: ExprT (ExprTyp m a) -> m ()

Then, for example, the variable declarations (I was writing code for tupled variable declarations) could be,

instance (HzMonad , Data.Suitable.Suitable  α, γ ~ ExprTyp  α) => VarDecl  (ExprT γ)
instance (Monad , VarDecl  α, VarDecl  β) => VarDecl  (α, β)

please post a comment if something is unclear.