summaryrefslogtreecommitdiff
path: root/src/Util.hs
blob: 15ca593c0defc4e3a6876e2ae5b003be0496c9b9 (plain)
1
2
3
4
5
6
7
module Util (safeHead) where

-- |Safe head function
safeHead [] = Nothing
safeHead (x:_) = Just x