Commits

Anonymous committed 12a87e7

.

Comments (0)

Files changed (1)

   match segs with
   [ [] -> ((rel_of_segs [] (* ? хз. *) ) :> t any)
   | ["" :: (["" :: _] as segs)] -> ((of_segs segs) :> t any)
-  | ["" :: segs] -> ((abs_of_segs segs) :> t any)
+  | ["" :: _] -> ((abs_of_segs segs) :> t any)
   | segs -> ((rel_of_segs segs) :> t any)
   ]
 ;