AuxiliaryG.hs

-- |
-- 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 (_,_,z) = z
{-# INLINE lastFrom3 #-}

firstFrom3 :: (a, b, c) -> a
firstFrom3 (x, _, _) = x
{-# INLINE firstFrom3 #-}

secondFrom3 :: (a, b, c) -> b
secondFrom3 (_, y, _) = y
{-# INLINE secondFrom3 #-}