shithub: MicroHs

ref: 754c2a59b0a78f7aa23cc1166b2cfc18d7209bfe
dir: /lib/Control/Exn.hs/

View raw version 
-- Copyright 2024 Lennart Augustsson
-- See LICENSE file for full license.
module Control.Exn(Exn(..), exnToString) where

-- Temporary exception type until we get proper exceptions.

newtype Exn = Exn String

exnToString :: Exn -> String
exnToString (Exn s) = s