Add text direction

Author: vyorkin

src/CSS/Text.purs

@@ -12,7 +12,7 @@ letterSpacing = key $ fromString "letter-spacing"
 newtype TextDecoration = TextDecoration Value
 
 derive instance eqTextDecoration :: Eq TextDecoration
-derive instance ordTextDecoration:: Ord TextDecoration
+derive instance ordTextDecoration :: Ord TextDecoration
 
 instance valTextDecoration :: Val TextDecoration where
   value (TextDecoration v) = v

src/CSS/TextDirection.purs

@@ -0,0 +1,23 @@
+module CSS.TextDirection where
+
+import Prelude
+import CSS.Property (class Val, Value)
+import CSS.String (fromString)
+import CSS.Stylesheet (CSS, key)
+
+newtype TextDirection = TextDirection Value
+
+derive instance eqTextDirection :: Eq TextDirection
+derive instance ordTextDirection :: Ord TextDirection
+
+instance valTextDirection :: Val TextDirection where
+  value (TextDirection v) = v
+
+direction :: TextDirection -> CSS
+direction = key $ fromString "direction"
+
+ltr :: TextDirection
+ltr = TextDirection $ fromString "ltr"
+
+rtl :: TextDirection
+rtl = TextDirection $ fromString "rtl"