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