haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed some debug

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-29 16:36:30 +03:00
parent b04e034b0d
commit fe592b6ad1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Scaffold/Devel.hs
View File

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