ReadMe.hs

{-# LANGUAGE TypeApplications #-}

module Main where

import Prelude
import Text.Read
import Control.Exception (try, evaluate, SomeException)

read' :: Read a => String -> a
read' = Prelude.read

read'' :: Read a => String -> a
read'' s = either error id (readEither s)

main :: IO ()
main = do
  print =<< try @SomeException (evaluate (read' @Int "foo"))
  print =<< try @SomeException (evaluate (read'' @Int "foo"))