haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-21 08:21:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Hide a record accessor

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-16 14:20:09 +02:00
parent 0bf235760b
commit 3f4e86e5fe
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Data/Slug.hs
View File

@ -17,11 +17,14 @@ import qualified System.Random.MWC as MWC
import GHC.Prim (RealWorld) import GHC.Prim (RealWorld)
import Text.Blaze (ToMarkup) import Text.Blaze (ToMarkup)
newtype Slug = Slug { unSlug :: Text } newtype Slug = Slug Text
deriving (Show, Read, Eq, Typeable, PersistField, ToMarkup, Ord, Hashable) deriving (Show, Read, Eq, Typeable, PersistField, ToMarkup, Ord, Hashable)
instance PersistFieldSql Slug where instance PersistFieldSql Slug where
sqlType = sqlType . liftM unSlug sqlType = sqlType . liftM unSlug
unSlug :: Slug -> Text
unSlug (Slug t) = t
mkSlug :: MonadThrow m => Text -> m Slug mkSlug :: MonadThrow m => Text -> m Slug
mkSlug t mkSlug t
| length t < minLen = throwM $ InvalidSlugException t "Too short" | length t < minLen = throwM $ InvalidSlugException t "Too short"