|
{-|
|
|
Module : Misc
|
|
Description : Contains miscelaneous helper functions which do not fit elsewhere
|
|
-}
|
|
|
|
module Misc where
|
|
|
|
infixl 3 !?
|
|
-- | Safe version of (!!)
|
|
(!?) :: [a] -> Int -> Maybe a
|
|
[] !? i = Nothing
|
|
(x:xs) !? 0 = Just x
|
|
(x:xs) !? n = xs !? (n-1)
|