Skip to content

GitLab

Commit c1dbea39 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-06-02 20:39:11 by afrisch] Empty log message 

Original author: afrisch
Date: 2005-06-02 20:39:11+00:00
parent 2357beb6
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 1 deletion
typing/typepat.ml
View file @ c1dbea39
......@@ -706,5 +706,8 @@ open Ident
let get_ct c =
match c.desc with
| ITimes ({ desc = IType (t,_) },content) -> (t,content)
| ITimes (k,content) ->
(match (repr k).desc with
| IType (t,_) -> (t,content)
| _ -> assert false)
| _ -> assert false
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment