module Bookhound.Utils.List where headSafe :: [a] -> Maybe a headSafe :: forall a. [a] -> Maybe a headSafe (a x: [a] _) = forall a. a -> Maybe a Just a x headSafe [a] _ = forall a. Maybe a Nothing