Deprecated
menshen
Data Validation
https://github.com/leptonyu/menshen#readme
| Version on this page: | 0.0.3 |
| LTS Haskell 14.27: | 0.0.3@rev:1 |
| Stackage Nightly 2019-09-21: | 0.0.3@rev:1 |
| Latest on Hackage: | 0.0.3@rev:1 |
Maintained by [email protected]
This version can be pinned in stack with:
menshen-0.0.3@sha256:86b418e7ad4b385d6c38a36eb84b67af8f3b3489d36845ee81189ea9fdcd87ca,1401Module documentation for 0.0.3
- Data
Depends on 4 packages(full list with versions):
Used by 2 packages in lts-13.19(full list with versions):
menshen
{-# LANGUAGE RecordWildCards #-}
module Main where
import Data.Menshen
data Body = Body
{ name :: String
, age :: Int
} deriving Show
verifyBody :: Validator Body
verifyBody = vcvt $ Body{..} -> Body
<$> name ?: mark "name" . pattern "^[a-z]{3,6}$"
<*> age ?: mark "age" . minInt 1 . maxInt 150
makeBody :: String -> Int -> Either String Body
makeBody name age = Body{..} ?: verifyBody
main = do
print $ makeBody "daniel" 15