dhscanner-bitcode-1.0.7: src/Fqn.hs

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE OverloadedStrings #-}

module Fqn

where

-- general imports
import Data.Aeson
import GHC.Generics

-- | Fully qualified name
data Fqn = Fqn { content :: String } deriving ( Show, Eq, Ord, Generic, ToJSON, FromJSON )

any :: Fqn
any = Fqn { content = "any" }

nativeInt :: Fqn
nativeInt = Fqn { content = "int" }

nativeStr :: Fqn
nativeStr = Fqn { content = "str" }

nativeBool :: Fqn
nativeBool = Fqn { content = "bool" }

nativeNull :: Fqn
nativeNull = Fqn { content = "null" }