diff --git a/clay.cabal b/clay.cabal
--- a/clay.cabal
+++ b/clay.cabal
@@ -1,5 +1,5 @@
 Name:     clay
-Version:  0.12
+Version:  0.12.1
 Synopsis: CSS preprocessor as embedded Haskell.
 Description:
   Clay is a CSS preprocessor like LESS and Sass, but implemented as an embedded
diff --git a/src/Clay/Background.hs b/src/Clay/Background.hs
--- a/src/Clay/Background.hs
+++ b/src/Clay/Background.hs
@@ -84,6 +84,8 @@
 
 , Location
 , Loc
+, Val
+, location
 )
 where
 
diff --git a/src/Clay/Common.hs b/src/Clay/Common.hs
--- a/src/Clay/Common.hs
+++ b/src/Clay/Common.hs
@@ -33,18 +33,41 @@
 
 class Other   a where other   :: Value -> a
 
-instance All      Value where all      = "all"
-instance Auto     Value where auto     = "auto"
-instance Baseline Value where baseline = "baseline"
-instance Center   Value where center   = "center"
-instance Inherit  Value where inherit  = "inherit"
-instance Normal   Value where normal   = "normal"
-instance None     Value where none     = "none"
-instance Visible  Value where visible  = "visible"
-instance Hidden   Value where hidden   = "hidden"
+allValue :: Value
+allValue = "all"
+autoValue :: Value
+autoValue = "auto"
+baselineValue :: Value
+baselineValue = "baseline"
+centerValue :: Value
+centerValue = "center"
+inheritValue :: Value
+inheritValue = "inherit"
+normalValue :: Value
+normalValue = "normal"
+noneValue :: Value
+noneValue = "none"
+visibleValue :: Value
+visibleValue = "visible"
+hiddenValue :: Value
+hiddenValue = "hidden"
+initialValue :: Value
+initialValue = "initial"
+unsetValue :: Value
+unsetValue = "unset"
+
+instance All      Value where all      = allValue
+instance Auto     Value where auto     = autoValue
+instance Baseline Value where baseline = baselineValue
+instance Center   Value where center   = centerValue
+instance Inherit  Value where inherit  = inheritValue
+instance Normal   Value where normal   = normalValue
+instance None     Value where none     = noneValue
+instance Visible  Value where visible  = visibleValue
+instance Hidden   Value where hidden   = hiddenValue
 instance Other    Value where other    = id
-instance Initial  Value where initial  = "initial"
-instance Unset    Value where unset    = "unset"
+instance Initial  Value where initial  = initialValue
+instance Unset    Value where unset    = unsetValue
 
 -------------------------------------------------------------------------------
 
diff --git a/src/Clay/Display.hs b/src/Clay/Display.hs
--- a/src/Clay/Display.hs
+++ b/src/Clay/Display.hs
@@ -65,7 +65,7 @@
 -- * Vertical align.
 
 , VerticalAlign(..)
-, middle, vAlignSub, vAlignSuper, textTop, textBottom, vAlignTop, vAlignBottom
+, middle, vAlignSub, vAlignSuper, textTop, textBottom, vAlignTop, vAlignBottom, vAlignBaseline
 
 -- * Cursor
 
diff --git a/src/Clay/Selector.hs b/src/Clay/Selector.hs
--- a/src/Clay/Selector.hs
+++ b/src/Clay/Selector.hs
@@ -1,7 +1,6 @@
 {-# LANGUAGE
     OverloadedStrings
   , FlexibleInstances
-  , FlexibleContexts
   , GeneralizedNewtypeDeriving
   , StandaloneDeriving
   , UndecidableInstances
diff --git a/src/Clay/Size.hs b/src/Clay/Size.hs
--- a/src/Clay/Size.hs
+++ b/src/Clay/Size.hs
@@ -1,11 +1,11 @@
 {-# LANGUAGE
-    EmptyDataDecls
-  , OverloadedStrings
+    OverloadedStrings
   , GeneralizedNewtypeDeriving
   , FlexibleInstances
   , ExistentialQuantification
   , StandaloneDeriving
   , TypeFamilies
+  , EmptyDataDecls
   #-}
 module Clay.Size
 (
@@ -108,10 +108,10 @@
   value (OtherSize a) = a
   value s = Value $ browsers <> Plain ("calc" <> sizeToText s)
 
-instance Auto (Size a) where auto = Clay.Common.auto
-instance Normal (Size a) where normal = Clay.Common.normal
-instance Inherit (Size a) where inherit = Clay.Common.inherit
-instance None (Size a) where none = Clay.Common.none
+instance Auto (Size a) where auto = OtherSize Clay.Common.autoValue
+instance Normal (Size a) where normal = OtherSize Clay.Common.normalValue
+instance Inherit (Size a) where inherit = OtherSize Clay.Common.inheritValue
+instance None (Size a) where none = OtherSize Clay.Common.noneValue
 instance Other (Size a) where other a = OtherSize a
 
 -- | Zero size.
diff --git a/src/Clay/Stylesheet.hs b/src/Clay/Stylesheet.hs
--- a/src/Clay/Stylesheet.hs
+++ b/src/Clay/Stylesheet.hs
@@ -1,5 +1,4 @@
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE TypeSynonymInstances #-}
 {-# LANGUAGE FlexibleInstances #-}
 module Clay.Stylesheet where