mirror of
https://github.com/macocianradu/RosettaHaskellCompiler.git
synced 2026-03-18 13:00:08 +00:00
removed some debug messages
This commit is contained in:
@@ -23,7 +23,7 @@ printFunctionBody (MakeExplicitFunction (MakeFunctionSignature name _ inp out) e
|
|||||||
printExpression :: ExplicitExpression -> Coercion -> Doc a
|
printExpression :: ExplicitExpression -> Coercion -> Doc a
|
||||||
printExpression ExplicitEmpty _ = "[]"
|
printExpression ExplicitEmpty _ = "[]"
|
||||||
printExpression (ExplicitVariable name coer) out = case coer `coercionIncluded` out of
|
printExpression (ExplicitVariable name coer) out = case coer `coercionIncluded` out of
|
||||||
Left err -> error $ show coer ++ " /// " ++ show out--show err
|
Left err -> error $ show err
|
||||||
Right c -> printCoercion c $ pretty name
|
Right c -> printCoercion c $ pretty name
|
||||||
printExpression (Value s coer) out = case coer `coercionIncluded` out of
|
printExpression (Value s coer) out = case coer `coercionIncluded` out of
|
||||||
Left err -> error $ show err
|
Left err -> error $ show err
|
||||||
|
|||||||
@@ -96,7 +96,7 @@ checkExpression symbolMap (PathExpression ex1 (Variable b)) =
|
|||||||
case checkExpression symbolMap ex1 of
|
case checkExpression symbolMap ex1 of
|
||||||
Left err -> Left err
|
Left err -> Left err
|
||||||
Right exp1 -> case findAttributeType b (typeAttributes type1) of
|
Right exp1 -> case findAttributeType b (typeAttributes type1) of
|
||||||
Left err -> Left $ UndefinedVariable $ show type1--ex1 ++ " -> " ++ b
|
Left err -> Left $ UndefinedVariable $ show ex1 ++ " -> " ++ b
|
||||||
Right exp2 -> Right $ ExplicitPath exp1 exp2 (returnCoercion exp2)
|
Right exp2 -> Right $ ExplicitPath exp1 exp2 (returnCoercion exp2)
|
||||||
where
|
where
|
||||||
type1 = coercionType $ typeCoercion $ returnCoercion exp1
|
type1 = coercionType $ typeCoercion $ returnCoercion exp1
|
||||||
|
|||||||
Reference in New Issue
Block a user