diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 13:44:40 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2017-09-25 13:44:40 +0200 |
| commit | 06f2ac654e29335e522b02fb53369d774039bad6 (patch) | |
| tree | 15cc88c4a78904e5af44be97038a5b64079347ba /CabalHelper/Compiletime/Log.hs | |
| parent | e1e1a3aebb40459cd5db30c68ae4a995b451c9e0 (diff) | |
Fix displayExceoption not being available on older GHCs
Diffstat (limited to 'CabalHelper/Compiletime/Log.hs')
| -rw-r--r-- | CabalHelper/Compiletime/Log.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |