Commit f14a06b4 authored by Nicolas Lenz's avatar Nicolas Lenz

Add version value

parent 76cb537b
......@@ -10,7 +10,6 @@ import Data.Char
import Data.Maybe
import System.Environment
-- |Main function.
main :: IO ()
main = do
......@@ -35,7 +34,7 @@ handle style = fromMaybe (const help) (lookup style styles) . T.dropWhileEnd isS
help :: T.Text
help = T.unlines [
" ╔════════════════════╗",
" ║ Mock 3.5.0 ║",
" ║ Mock " <> version <> " ║",
" ╚════════════════════╝",
"",
"A Great PrOgrAM tO TRANsFoRM TEXt, wRiTten iN HaSKeLL.",
......
{-# LANGUAGE OverloadedStrings, LambdaCase #-}
module Mock (styles, mockAlternate, mockRandom, letterspace, toDouble, toSubSuper) where
module Mock (version, styles, mockAlternate, mockRandom, letterspace, toDouble, toSubSuper) where
import qualified Data.Text as T
import Data.Text (Text)
......@@ -9,6 +9,9 @@ import Data.List
import Data.Hashable
import System.Random
-- |Version string
version :: T.Text
version = "3.5.0"
-- |List of possible mock style names and their functions.
styles :: [(Text, Text -> Text)]
......
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