From fe592b6ad1d08d0ad9b15c2561b8e88379727b31 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 29 Apr 2011 16:36:30 +0300
Subject: [PATCH] Removed some debug

---
 Scaffold/Devel.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Scaffold/Devel.hs b/Scaffold/Devel.hs
index a3ae9ca4..fa71aa69 100644
--- a/Scaffold/Devel.hs
+++ b/Scaffold/Devel.hs
@@ -31,6 +31,7 @@ import System.Process (runCommand, terminateProcess, getProcessExitCode, waitFor
 import qualified Data.IORef as I
 import qualified Data.ByteString.Lazy.Char8 as L
 import System.Directory (doesFileExist, removeFile)
+import Distribution.Package (PackageName (..), pkgName)
 
 appMessage :: L.ByteString -> IO ()
 appMessage l = forever $ do
@@ -83,12 +84,12 @@ devel = do
             install (localPkgDescr lbi) lbi defaultCopyFlags
             register (localPkgDescr lbi) lbi defaultRegisterFlags
 
-            let pi' = display $ package $ localPkgDescr lbi
+            let PackageName pi' = pkgName $ package $ localPkgDescr lbi
             writeFile "dist/devel.hs" $ unlines
                 [ "{-# LANGUAGE PackageImports #-}"
                 , concat
                     [ "import \""
-                    , "haskellers" -- FIXME
+                    , pi'
                     , "\" Controller (withDevelApp)"
                     ]
                 , "import Data.Dynamic (fromDynamic)"