Searched defs:completeArrow (Results 1 – 1 of 1) sorted by relevance
165 completeArrow (unsnoc -> Just (a,b)) | b `elem` ["-","="] = snoc a (b ++ ">") function166 completeArrow x = x function