shithub: MicroHs

ref: 7d2f32a9e5e2b27faa217fd3d9d2d2092f052861
dir: /mhs/Compat.hs/

View raw version 
-- Copyright 2023 Lennart Augustsson
-- See LICENSE file for full license.
module Compat(rnfNoErr, rnfErr, NFData, appendDot) where
import Prelude()              -- do not import Prelude
import Primitives
import Data.Text
-- So we can import Compat, which is full of stuff for GHC.

-- Define these here to avoid dragging in Control.DeepSeq
rnfNoErr :: forall a . a -> ()
rnfNoErr = primRnfNoErr

rnfErr :: forall a . a -> ()
rnfErr = primRnfErr

class NFData a

appendDot :: Text -> Text -> Text
appendDot x y =
  primitive "bs++." x y
  --x `append` pack "." `append` y