-- | -- Module : Languages.UniquenessPeriods.Vector.AuxiliaryG -- Copyright : (c) OleksandrZhabenko 2020 -- License : MIT -- Stability : Experimental -- Maintainer : olexandr543@yahoo.com -- -- Is from the @dobutokO-poetry-general@ package. Is included here -- to minimize dependencies of the package. -- Similar functionality is provided by the packages MissingH, extra, ghc -- and other packages, but they have a lot of dependencies, so here there are -- less dependencies module and package. module Languages.UniquenessPeriods.Vector.AuxiliaryG ( -- * Help functions lastFrom3 , firstFrom3 , secondFrom3 ) where lastFrom3 :: (a,b,c) -> c lastFrom3 :: (a, b, c) -> c lastFrom3 (a _,b _,c z) = c z {-# INLINE lastFrom3 #-} firstFrom3 :: (a, b, c) -> a firstFrom3 :: (a, b, c) -> a firstFrom3 (a x, b _, c _) = a x {-# INLINE firstFrom3 #-} secondFrom3 :: (a, b, c) -> b secondFrom3 :: (a, b, c) -> b secondFrom3 (a _, b y, c _) = b y {-# INLINE secondFrom3 #-}