make-is-data-con: This package generates data constructor predicate functions

This is a package candidate release! Here you can preview how this package release will appear once published to the main package index (which can be accomplished via the 'maintain' link below). Please note that once a package has been published to the main package index it cannot be undone! Please consult the package uploading documentation for more information.

[maintain] [Publish]

Warnings:

[missing-upper-bounds] On library, these packages miss upper bounds: - template-haskell Please add them. There is more information at https://pvp.haskell.org/

Please see the README on GitHub at https://github.com/HaskellZhangSong/make-is-data-con#readme

[Skip to Readme]

Properties

Versions	0.1.0.0
Change log	CHANGELOG.md
Dependencies	base (>=4.7 && <5), template-haskell [details]
License	BSD-3-Clause
Copyright	2025 Zhang Song
Author	Zhang Song
Maintainer	Haskell.Zhang.Song `at` hotmail.com
Category	Development
Home page	https://github.com/HaskellZhangSong/make-is-data-con#readme
Bug tracker	https://github.com/HaskellZhangSong/make-is-data-con/issues
Source repo	head: git clone https://github.com/HaskellZhangSong/make-is-data-con
Uploaded	by songzh at 2025-02-19T04:49:19Z

Modules

Data
- Derive
  - Data.Derive.IsDataCon

Downloads

make-is-data-con-0.1.0.0.tar.gz [browse] (Cabal source package)
Package description (as included in the package)

Maintainer's Corner

Package maintainers

songzh

For package maintainers and hackage trustees

edit package information

Readme for make-is-data-con-0.1.0.0

[back to package description]

make-is-data-con

This package will generate data constructor predicate functions

    makeIsDataCon ''Bool
  ======>
    isFalse :: Bool -> Bool
    isTrue :: Bool -> Bool
    isFalse False = True
    isFalse _ = False
    isTrue True = True
    isTrue _ = False

Above code will generate isTrue and isFalse functions. The function is 'is' + data constructor.

For operators, there is a function that translates to string

charToString :: Char -> String
charToString '~' = "Tilde"
charToString '!' = "Bang"
charToString '@' = "At"
charToString '#' = "Hash"
charToString '$' = "Dollar"
charToString '%' = "Percent"
charToString '^' = "Caret"
charToString '&' = "And"
charToString '*' = "Star"
charToString '-' = "Minus"
charToString '+' = "Plus"
charToString '=' = "Equal"
charToString '|' = "Pipe"
charToString '\\' = "Backslash"
charToString '/' = "Slash"
charToString '<' = "Lt"
charToString '>' = "Gt"
charToString ':' = "Colon"
charToString '?' = "Question"
charToString '.' = "Dot"
-- charToString '[' = "LSquareBracket" -- I do not want to support makeIsDataCon ''[]. One should use null function instead.
-- charToString ']' = "RSquareBracket"

For example (:=:) will be translated into isColonStarColon function

For gadt data type

data Gadt a b where
    (:*:), (:=:)  :: a -> b -> Gadt a b

The following code will be generated:

    makeIsDataCon ''Gadt 
  ======>
    isColonStarColon :: Gadt a_a54E a_a54F -> Bool
    isColonEqualColon :: Gadt a_a54G a_a54H -> Bool
    isColonStarColon ((:*:) _ _) = True
    isColonStarColon _ = False
    isColonEqualColon ((:=:) _ _) = True
isColonEqualColon _ = False