rnhmjoj/alea
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Support GHC 7.10

Browse Source
This commit is contained in:
rnhmjoj 2015-04-11 20:02:27 +02:00
parent 3597747a90
commit d73cd3dbc0
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
alea.cabal
View File

@ -1,5 +1,5 @@
name: alea name: alea
version: 0.3.3.0 version: 0.4.0.0
synopsis: a diceware passphrase generator synopsis: a diceware passphrase generator
description: description:
@ -12,7 +12,7 @@ license: MIT
license-file: LICENSE license-file: LICENSE
author: Rnhmjoj author: Rnhmjoj
maintainer: micheleguerinirocco@me.com maintainer: micheleguerinirocco@me.com
copyright: (C) Michele Guerini Rocco 2014 copyright: (C) Michele Guerini Rocco 2015
category: Utility category: Utility
build-type: Simple build-type: Simple
extra-source-files: README.md, LICENSE extra-source-files: README.md, LICENSE
@ -27,8 +27,8 @@ executable alea
main-is: Main.hs main-is: Main.hs
hs-source-dirs: src hs-source-dirs: src
default-language: Haskell2010 default-language: Haskell2010
other-modules: Alea.Diceware, Alea.List, Alea.Random, Paths_alea other-modules: Alea.Diceware, Alea.List, Alea.Random
other-extensions: DeriveDataTypeable, RecordWildCards other-extensions: DeriveDataTypeable, RecordWildCards
build-depends: base ==4.7.* , containers ==0.5.*, build-depends: base >=4.8 && < 5.0, containers,
argparser ==0.3.*, threefish == 0.2.* argparser, threefish
ghc-options: -O2 ghc-options: -O2

2
src/Alea/Random.hs
View File

@ -3,4 +3,4 @@ module Alea.Random where
import Crypto.Threefish.Random import Crypto.Threefish.Random
randWords :: Int -> Int -> IO [Int] randWords :: Int -> Int -> IO [Int]
randWords n k = newSkeinGen >>= return . take k . randomRs (0, n-1) randWords n k = take k . randomRs (0, n-1) <$> newSkeinGen

1
src/main.hs
View File

@ -3,7 +3,6 @@
import System.IO import System.IO
import System.Console.ArgParser import System.Console.ArgParser
import Control.Monad import Control.Monad
import Control.Applicative
import Paths_alea (getDataFileName) import Paths_alea (getDataFileName)
import Alea.Diceware import Alea.Diceware