phonetic-languages-permutations-array-0.4.0.0: Phladiprelio/PermutationsRepresent.hs

{-# LANGUAGE NoImplicitPrelude #-}

-- |
-- Module      :  Phladiprelio.PermutationsRepresent
-- Copyright   :  (c) OleksandrZhabenko 2022-2023
-- License     :  MIT
-- Stability   :  Experimental
-- Maintainer  :  oleksandr.zhabenko@yahoo.com
--
-- Permutations data type to mark the needed permutations type from the other modules.

module Phladiprelio.PermutationsRepresent (
  PermutationsType(..)
  , bTransform2Perms
) where

import GHC.Base
import Text.Show
--import Data.Monoid

data PermutationsType = P Int deriving (Eq, Ord)

instance Show PermutationsType where
  show (P x) = "+p " `mappend` show x

bTransform2Perms :: [String] -> PermutationsType
bTransform2Perms ys
 | ys == ["1"] = P 1
 | ys == ["2"] = P 2
 | otherwise = P 0