shithub: MicroHs

ref: 7f0888567aa181bc6a7c6802c25f3ab4ee0bf683
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