Indent fix

phases/typecheck.ml

@@ -44,10 +44,11 @@ let check_type ?(msg="") expected node =
   let got = typeof node in
   if (spec got) <> (spec expected) then begin
     let msg = match msg with
-      | "" -> sprintf "type mismatch: expected type %s, got %s"
-              (type2str_error expected) (type2str_error got)
-      | _ -> msg
-    in raise (NodeError (node, msg))
+    | "" -> sprintf "type mismatch: expected type %s, got %s"
+            (type2str_error expected) (type2str_error got)
+    | _ -> msg
+    in
+    raise (NodeError (node, msg))
   end
 
 let op_types = function