Commit 9d35421d authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Keep Haskell-land settings in Settings.hs.

parent eafd5e05
...@@ -7,6 +7,7 @@ module Base ( ...@@ -7,6 +7,7 @@ module Base (
module Data.Function, module Data.Function,
module Data.Monoid, module Data.Monoid,
module Data.List, module Data.List,
module Settings,
Stage (..), Stage (..),
Arg, Args, Arg, Args,
ShowArg (..), ShowArgs (..), ShowArg (..), ShowArgs (..),
...@@ -22,6 +23,7 @@ import Control.Applicative ...@@ -22,6 +23,7 @@ import Control.Applicative
import Data.Function import Data.Function
import Data.Monoid import Data.Monoid
import Data.List import Data.List
import Settings
data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum) data Stage = Stage0 | Stage1 | Stage2 | Stage3 deriving (Eq, Enum)
......
module Settings (
IntegerLibrary (..), integerLibrary,
buildHaddock
) where
data IntegerLibrary = IntegerGmp | IntegerGmp2 | IntegerSimple
instance Show IntegerLibrary where
show library = case library of
IntegerGmp -> "integer-gmp"
IntegerGmp2 -> "integer-gmp2"
IntegerSimple -> "integer-simple"
integerLibrary :: IntegerLibrary
integerLibrary = IntegerGmp2
buildHaddock :: Bool
buildHaddock = True
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment