argo-0.2022.2.23: source/library/Argo/Type/Permission.hs

{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveLift #-}

module Argo.Type.Permission where

import qualified Argo.Vendor.DeepSeq as DeepSeq
import qualified Argo.Vendor.TemplateHaskell as TH
import qualified GHC.Generics as Generics

data Permission
    = Allow
    | Forbid
    deriving (Eq, Generics.Generic, TH.Lift, DeepSeq.NFData, Show)

toBool :: Permission -> Bool
toBool x = case x of
    Allow -> True
    Forbid -> False