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