aelve/guide
1
1
Fork 0
mirror of https://github.com/aelve/guide.git synced 2024-12-25 13:51:45 +03:00
Code Issues Projects Releases Wiki Activity

Don't generate small Uids

Browse Source
This commit is contained in:
Artyom 2016-03-18 23:45:18 +03:00
parent 95d710eaee
commit c268d91927
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Utils.hs
View File

@ -3,6 +3,7 @@ OverloadedStrings,
TemplateHaskell, TemplateHaskell,
GeneralizedNewtypeDeriving, GeneralizedNewtypeDeriving,
DeriveDataTypeable, DeriveDataTypeable,
NumDecimals,
NoImplicitPrelude NoImplicitPrelude
#-} #-}
@ -104,7 +105,7 @@ instance IsString Uid where
fromString = Uid . T.pack fromString = Uid . T.pack
randomUid :: MonadIO m => m Uid randomUid :: MonadIO m => m Uid
randomUid = liftIO $ Uid . tshow <$> randomRIO (0::Int, 10^(9::Int)) randomUid = liftIO $ Uid . tshow <$> randomRIO (10e8 :: Int, 10e9-1)
uid_ :: Uid -> Attribute uid_ :: Uid -> Attribute
uid_ = id_ . uidToText uid_ = id_ . uidToText