git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Expose version at runtime
5d886a4Harry Garrood
src/Language/PureScript.hs+7
compare with golang
unifiedsplit
@@ -27,6 +27,7 @@ module Language.PureScript
27 , MonadMake(..)
27 , MonadMake(..)
28 , make
28 , make
29 , prelude
29 , prelude
30+ , version
30 ) where
31 ) where
31
32
32import Data.FileEmbed (embedFile)
33import Data.FileEmbed (embedFile)
@@ -34,6 +35,7 @@ import Data.Function (on)
34import Data.List (sortBy, groupBy, intercalate)
35import Data.List (sortBy, groupBy, intercalate)
35import Data.Maybe (fromMaybe)
36import Data.Maybe (fromMaybe)
36import Data.Time.Clock
37import Data.Time.Clock
38+import Data.Version (Version)
37import qualified Data.Traversable as T (traverse)
39import qualified Data.Traversable as T (traverse)
38import qualified Data.ByteString.UTF8 as BU
40import qualified Data.ByteString.UTF8 as BU
39import qualified Data.Map as M
41import qualified Data.Map as M
@@ -66,6 +68,8 @@ import Language.PureScript.Types as P
66import qualified Language.PureScript.CoreFn as CoreFn
68import qualified Language.PureScript.CoreFn as CoreFn
67import qualified Language.PureScript.Constants as C
69import qualified Language.PureScript.Constants as C
68
70
71+import qualified Paths_purescript as Paths
72+
69-- |
73-- |
70-- Compile a collection of modules
74-- Compile a collection of modules
71--
75--
@@ -267,3 +271,6 @@ importPrelude = addDefaultImport (ModuleName [ProperName C.prelude])
267
271
268prelude :: String
272prelude :: String
269prelude = BU.toString $(embedFile "prelude/prelude.purs")
273prelude = BU.toString $(embedFile "prelude/prelude.purs")
274+
275+version :: Version
276+version = Paths.version