Revert "Better error"

This reverts commit 66d0212.

Author: mpickering

hie-bios/hie-bios.cabal

@@ -63,21 +63,6 @@ Executable biosc
                       , ghc
                       , hie-bios
 
-
-test-suite unit-test
-  type:                exitcode-stdio-1.0
-  hs-source-dirs:      test/
-  main-is:             Main.hs
-  other-modules:
-  build-depends:       base
-                     , hie-bios
-                     , hspec
-                     , filepath
-                     , directory
-
-  ghc-options:         -Wall -Wredundant-constraints
-  default-language:    Haskell2010
-
 Source-Repository head
   Type:                 git
   Location:             git://github.com/mpickering/hie-bios.git

hie-bios/src/HIE/Bios/Cradle.hs

@@ -122,12 +122,10 @@ cabalAction work_dir mc _fp = do
                   ++ [component_name | Just component_name <- [mc]]
   (ex, args, stde) <-
       withCurrentDirectory work_dir (readProcessWithExitCode "cabal" cab_args [])
-  case lines args of
-    [dir, ghc_args] -> do
-      let final_args = map (fixImportDirs dir) (words ghc_args)
-      traceM dir
-      return (ex, stde, final_args)
-    _ -> error (show (ex, args, stde))
+  let [dir, ghc_args] = lines args
+      final_args = map (fixImportDirs dir) (words ghc_args)
+  traceM dir
+  return (ex, stde, final_args)
 
 fixImportDirs :: FilePath -> String -> String
 fixImportDirs base_dir arg =