menshen: Data Validation

[ bsd3, deprecated, library, web ] [ Propose Tags ]

Deprecated

Data Validation inspired by JSR305

[Skip to Readme]

Modules

[Index] [Quick Jump]

Data
- Data.Menshen

Downloads

menshen-0.0.1.tar.gz [browse] (Cabal source package)
Package description (as included in the package)

Maintainer's Corner

Package maintainers

leptonyu

For package maintainers and hackage trustees

edit package information

Candidates

No Candidates

Versions [RSS]	0.0.0, 0.0.1, 0.0.2, 0.0.3 (info)
Dependencies	base (>=4.7 && <5), regex-tdfa (>=1.2.3.1 && <1.3), scientific (>=0.3.6.2 && <0.4), text (>=1.2.3.1 && <1.3) [details]
License	BSD-3-Clause
Copyright	(c) Daniel YU
Author	Daniel YU
Maintainer	leptonyu@gmail.com
Category	Web
Home page	https://github.com/leptonyu/menshen#readme
Uploaded	by leptonyu at 2019-01-17T07:16:26Z
Distributions
Reverse Dependencies	4 direct, 7 indirect [details]
Downloads	1833 total (13 in the last 30 days)
Rating	(no votes yet) [estimated by Bayesian average]
Your Rating	λ λ λ
Status	Docs uploaded by user Build status unknown [no reports yet]

Readme for menshen-0.0.1

[back to package description]

menshen


{-# LANGUAGE RecordWildCards #-}
module Main where
import Data.Menshen
data Body = Body
  { name :: String
  , age  :: Int
  } deriving Show

valifyBody :: Validator Body
valifyBody = \ma -> do
  Body{..} <- ma
  Body
    <$> name ?: pattern "^[a-z]{3,6}$"
    <*> age  ?: minInt 1 . maxInt 150

makeBody :: String -> Int -> Either String Body
makeBody name age = Body{..} ?: valifyBody

main = do
  print $ makeBody "daniel" 15