shithub: MicroHs

ref: 4491fed30b2fceec400a9fd8e4b4349bab180ef6
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