3 files changed, 4 insertions(+), 1 deletions(-)

M Graphics/Text/Font/Choose.hs
M Graphics/Text/Font/Choose/LangSet.hs
M Graphics/Text/Font/Choose/Range.hs

@@ 1,5 1,5 @@
 module Graphics.Text.Font.Choose(CharSet, FontSet, ObjectSet, Pattern(..), Binding(..),
-  Range(..), iRange, StrSet, StrList, Value(..),
+  Range(..), iRange, StrSet, StrList, Value(..), FontFaceParser(..),
 
   Config, configCreate,
   configSetCurrent, configGetCurrent, configUptoDate, configHome, configEnableHome,

@@ 34,6 34,7 @@ langs :: LangSet
 langs = unsafePerformIO $ thawStrSet_ $ fcGetLangs
 foreign import ccall "FcGetLangs" fcGetLangs :: IO StrSet_
 
+-- | Result of language comparisons.
 data LangResult = SameLang | DifferentTerritory | DifferentLang
     deriving (Enum, Eq, Read, Show)
 -- | `langSetCompare` compares language coverage for ls_a and ls_b.

@@ 10,7 10,9 @@ import GHC.Generics (Generic)
 import Data.Hashable (Hashable)
 import Graphics.Text.Font.Choose.Result (throwNull, throwFalse)
 
+-- | Matches a numeric range.
 data Range = Range Double Double deriving (Eq, Show, Ord, Generic)
+-- | Matches an integral range.
 iRange i j = toEnum i `Range` toEnum j
 
 instance Hashable Range