menshen: Data Validation
Deprecated
Downloads
- menshen-0.0.1.tar.gz [browse] (Cabal source package)
- Package description (as included in the package)
Maintainer's Corner
For package maintainers and hackage trustees
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 | 1920 total (3 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