diff --git a/server/src-lib/Hasura/RQL/DDL/RemoteRelationship/Validate.hs b/server/src-lib/Hasura/RQL/DDL/RemoteRelationship/Validate.hs
index 2e30e3541680a..2ee67e0191f68 100644
--- a/server/src-lib/Hasura/RQL/DDL/RemoteRelationship/Validate.hs
+++ b/server/src-lib/Hasura/RQL/DDL/RemoteRelationship/Validate.hs
@@ -415,15 +415,13 @@ isTypeCoercible actualType expectedType =
   let (actualBaseType, actualNestingLevel) = getBaseTyWithNestedLevelsCount actualType
       (expectedBaseType, expectedNestingLevel) = getBaseTyWithNestedLevelsCount expectedType
   in
-  if actualBaseType == expectedBaseType
-  then if (actualNestingLevel == expectedNestingLevel || actualNestingLevel == 0)
-  -- The check of 'actualNestedCount == 0' is the case of coercing a singleton type
-  -- into an array type
-       then pure ()
-       else Failure (pure $ ExpectedTypeButGot expectedType actualType)
-       --  we cannot coerce two types with different nesting levels,
+  if | actualBaseType /= expectedBaseType -> raiseValidationError
+       -- we cannot coerce two types with different nesting levels,
        -- for example, we cannot coerce [Int] to [[Int]]
-  else Failure (pure $ ExpectedTypeButGot expectedType actualType)
+     | (actualNestingLevel == expectedNestingLevel || actualNestingLevel == 0) -> pure ()
+     | otherwise -> raiseValidationError
+     where
+       raiseValidationError = Failure (pure $ ExpectedTypeButGot expectedType actualType)
 
 assertListType :: G.GType -> Validation (NonEmpty ValidationError) ()
 assertListType actualType =