From 06f2ac654e29335e522b02fb53369d774039bad6 Mon Sep 17 00:00:00 2001 From: Daniel Gröber Date: Mon, 25 Sep 2017 13:44:40 +0200 Subject: Fix displayExceoption not being available on older GHCs --- CabalHelper/Compiletime/Log.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'CabalHelper/Compiletime/Log.hs') diff --git a/CabalHelper/Compiletime/Log.hs b/CabalHelper/Compiletime/Log.hs index ec38f88..eb7ecaa 100644 --- a/CabalHelper/Compiletime/Log.hs +++ b/CabalHelper/Compiletime/Log.hs @@ -19,5 +19,5 @@ vLog _ _ = return () logIOError :: Options -> String -> IO (Maybe a) -> IO (Maybe a) logIOError opts label a = do a `E.catch` \(ex :: IOError) -> do - vLog opts $ label ++ ": " ++ E.displayException ex + vLog opts $ label ++ ": " ++ show ex return Nothing -- cgit v1.2.3