exactPrint makes strange things with class and instance declarations

[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

[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

[nibro]

Turns out this was a problem with the way function bindings are handled. I already had the fix for function bindings in Decls, but I hadn't thought to apply the same trick to ClassDecls? and InstDecls?. Fixed now, case closed.