id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
65	exactPrint makes strange things with class and instance declarations	nibro	nibro	"{{{ 
class Dir d where
  localDir :: d -> IO FilePath

instance Dir Directory where
  localDir (Local f) = return f

  localDir (Darcs {url=url,darcsVersion=Patch patch,subDirectory=subDir}) = do 
    tmp <- createTempDir 0 ""haskelld""
    darcsOut <- runDarcsCommand tmp ""get"" [""--lazy"",""--to-match"",""hash ""++ patch,url,""fs""]
    print darcsOut
    let (ExitSuccess,"""",out) = darcsOut 
    print out
    return $ tmp </> ""fs"" </> subDir

type URL = String
}}} 

becomes 

{{{
class Dir dwhere{
  localDir :: d -> IO FilePath

instance Dir Directory where
  localDir (Local f) = return f

  localDir (Darcs {url=url,darcsVersion=Patch patch,subDirectory=subDir}) = do
    tmp <- createTempDir 0 ""haskelld""
    darcsOut <- runDarcsCommand tmp ""get"" [""--lazy"",""--to-match"",""hash ""++ patch,url,""fs""]
    print darcsOut
    let (ExitSuccess,"""",out) = darcsOut
    print out
    return $ tmp </> ""fs"" </> subDir

  typeURL= String
}}}"	bug report	closed	major	Blue Sky	exactprinter	1.1.4	fixed