From 637bde5adda4759ad0b771d8b91cc8cf83936878 Mon Sep 17 00:00:00 2001
From: Sean Chalmers <sean.chalmers@data61.csiro.au>
Date: Wed, 6 Sep 2017 10:59:08 +1000
Subject: [PATCH] Stub in bracketOnError to make that function a bit less
 open-ended

---
 level03/src/FirstApp/Conf.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/level03/src/FirstApp/Conf.hs b/level03/src/FirstApp/Conf.hs
index 2349578..f758148 100644
--- a/level03/src/FirstApp/Conf.hs
+++ b/level03/src/FirstApp/Conf.hs
@@ -141,8 +141,11 @@ parseJSONConfigFile =
     -- Use the ``bracketOnError`` function to guard against exceptions.
     readObject
       :: IO (Maybe Aeson.Object)
-    readObject =
-      error "readObject not implemented"
+    readObject = bracketOnError
+      undefined
+      undefined
+      undefined
+
 
 -- | Command Line Parsing