Make parseCabalFile use MonadError

2014-08-12 18:11:32 +02:00
parent e345c92edb
commit 87c587993a
6 changed files with 45 additions and 20 deletions
--- a/Language/Haskell/GhcMod/Debug.hs
+++ b/Language/Haskell/GhcMod/Debug.hs
@@ -31,9 +31,9 @@ debugInfo = cradle >>= \c -> convert' =<< do
  where
    simpleCompilerOption = options >>= \op ->
        return $ CompilerOptions (ghcOpts op) [] []
-    fromCabalFile c = options >>= \opts -> liftIO $ do
+    fromCabalFile c = options >>= \opts -> do
        pkgDesc <- parseCabalFile $ fromJust $ cradleCabalFile c
-        getCompilerOptions (ghcOpts opts) c pkgDesc
+        liftIO $ getCompilerOptions (ghcOpts opts) c pkgDesc

 ----------------------------------------------------------------