import Data.NanoID

import System.Random.MWC

initDeckList :: IO DeckList
initDeckList = do
    gen <- createSystemRandom
    nid <- nanoID gen
    return . DeckList . Set.fromList $ []

        NanoID >= 3.4 && < 3.5,
        mwc-random >= 0.13 && < 0.16,