ed4fe02896
This is certianly a cabal bug for not passing the build options in the cabal file when building Setup.hs. And, why oh why did ghc enable this warning by default? So unhappy with this choice.
19 lines
432 B
Haskell
19 lines
432 B
Haskell
{- utilities for simple data types
|
|
-
|
|
- Copyright 2013 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
|
|
|
module Utility.Data where
|
|
|
|
{- First item in the list that is not Nothing. -}
|
|
firstJust :: Eq a => [Maybe a] -> Maybe a
|
|
firstJust ms = case dropWhile (== Nothing) ms of
|
|
[] -> Nothing
|
|
(md:_) -> md
|
|
|
|
eitherToMaybe :: Either a b -> Maybe b
|
|
eitherToMaybe = either (const Nothing) Just
|