Simplify explosions
This commit is contained in:
@@ -66,6 +66,7 @@ xs !? n
|
||||
{-# INLINABLE (!?) #-}
|
||||
|
||||
safeHead :: [a] -> Maybe a
|
||||
{-# INLINE safeHead #-}
|
||||
safeHead (x:_) = Just x
|
||||
safeHead _ = Nothing
|
||||
|
||||
|
||||
Reference in New Issue
Block a user