Make rename of a SigP fail properly, rather than just being an unhandled case
authorIan Lynagh <igloo@earth.li>
Thu, 19 Jun 2008 00:08:06 +0000 (00:08 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 19 Jun 2008 00:08:06 +0000 (00:08 +0000)
Language/Haskell/TH/Lib.hs

index 7e6fe23..fa15761 100644 (file)
@@ -424,6 +424,7 @@ rename (RecP nm fs) = do { pairs <- mapM rename ps; g(combine pairs) }
           (ss,ps) = unzip fs
 rename (ListP pats) = do { pairs <- mapM rename pats; g(combine pairs) }
    where g (es,ps) = return (es,ListP ps)
+rename (SigP {}) = fail "rename: Don't know how to do SigP yet"
 
 genpat :: Pat -> Q ((Name -> ExpQ), Pat)
 genpat p = do { (env,p2) <- rename p; return (alpha env,p2) }