xpr :: HsStmtContext id -> Bool
isMonadCompExpr MonadComp            = True
isMonadComp
isMonadCompExpr :: HsStmtContext id -> Bool
isMonadCompExpr MonadComp            = True
isMonadCompExpr MonadComp            = True