hw-eliasfano-0.1.1.0: src/HaskellWorks/Data/EliasFano/Internal.hs

module HaskellWorks.Data.EliasFano.Internal
  ( lastMaybe
  ) where

lastMaybe :: [a] -> Maybe a
lastMaybe (a:as@(b:bs)) = lastMaybe as
lastMaybe [a]           = Just a
lastMaybe _             = Nothing