module HGraph.Utils where mhead :: [a] -> Maybe a mhead [] = Maybe a forall a. Maybe a Nothing mhead (a x:[a] _) = a -> Maybe a forall a. a -> Maybe a Just a x