Some docs

bmillwood · Dec 12, 2011 · 6092052 · 6092052
1 parent c792d97
commit 6092052
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/Control/Applicative/QQ/ADo.hs b/Control/Applicative/QQ/ADo.hs
@@ -160,6 +160,8 @@ failingPattern pat = case pat of
   anyFailing = fmap or . mapM failingPattern
   mkQ d f x = maybe d f (cast x)
 
+-- | Take the name of a value constructor and try to find out if it is
+-- the only constructor of its type
 singleCon :: Name -> Q Bool
 singleCon n = do
     info <- reify n