1 files changed, 2 insertions(+), 0 deletions(-)

M Graphics/Text/Font/Choose/Value.hs

@@ 20,6 20,7 @@ import GHC.Generics (Generic)
 import Data.Hashable (Hashable)
 import Graphics.Text.Font.Choose.Result (throwNull, Error(ErrTypeMismatch))
 
+-- | A dynamic type system for `Pattern`s.
 data Value = ValueVoid
     | ValueInt Int
     | ValueDouble Double


@@ 33,6 34,7 @@ data Value = ValueVoid
 
 instance Hashable Value
 
+-- | Coerces compiletime types to runtime types.
 class ToValue x where
     toValue :: x -> Value
     fromValue :: Value -> Maybe x