more partial function removal

Left a few Prelude.head's in where it was checked not null and too hard to
remove, etc.

1 files changed, 3 insertions, 1 deletions

diff --git a/Common.hs b/Common.hs
index 7e8dd9a2a..f3dd701b1 100644
--- a/Common.hs
+++ b/Common.hs
@@ -6,7 +6,7 @@ import Control.Monad.State as X (liftIO)
 import Control.Exception.Extensible as X (IOException)
 
 import Data.Maybe as X
-import Data.List as X
+import Data.List as X hiding (head, tail, init, last)
 import Data.String.Utils as X
 
 import System.Path as X
@@ -25,3 +25,5 @@ import Utility.SafeCommand as X
 import Utility.Path as X
 import Utility.Directory as X
 import Utility.Monad as X
+
+import Utility.BadPrelude as X