From 24d2699ce23fefd8991a73f80174b2f97309889f Mon Sep 17 00:00:00 2001
From: Benjamin Kovach <bkovach13@gmail.com>
Date: Wed, 31 May 2017 10:37:52 -0400
Subject: Add syntax highlighting to README examples

---
 README.markdown | 55 +++++++++++++++++++++++++++++--------------------------
 1 file changed, 29 insertions(+), 26 deletions(-)

diff --git a/README.markdown b/README.markdown
index 6626697..7191059 100644
--- a/README.markdown
+++ b/README.markdown
@@ -44,43 +44,46 @@ Example
 
 Turns:
 
-    {-# LANGUAGE ViewPatterns, TemplateHaskell #-}
-    {-# LANGUAGE GeneralizedNewtypeDeriving,
-                ViewPatterns,
-        ScopedTypeVariables #-}
+```haskell
+{-# LANGUAGE ViewPatterns, TemplateHaskell #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving,
+            ViewPatterns,
+    ScopedTypeVariables #-}
 
-    module Bad where
+module Bad where
 
-    import Control.Applicative ((<$>))
-    import System.Directory (doesFileExist)
+import Control.Applicative ((<$>))
+import System.Directory (doesFileExist)
 
-    import qualified Data.Map as M
-    import      Data.Map    ((!), keys, Map)
+import qualified Data.Map as M
+import      Data.Map    ((!), keys, Map)
 
-    data Point = Point
-        { pointX, pointY :: Double
-        , pointName :: String
-        } deriving (Show)
+data Point = Point
+    { pointX, pointY :: Double
+    , pointName :: String
+    } deriving (Show)
+```
 
 into:
 
-    {-# LANGUAGE GeneralizedNewtypeDeriving #-}
-    {-# LANGUAGE ScopedTypeVariables        #-}
-    {-# LANGUAGE TemplateHaskell            #-}
+```haskell
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE ScopedTypeVariables        #-}
+{-# LANGUAGE TemplateHaskell            #-}
 
-    module Bad where
+module Bad where
 
-    import           Control.Applicative ((<$>))
-    import           System.Directory    (doesFileExist)
+import           Control.Applicative ((<$>))
+import           System.Directory    (doesFileExist)
 
-    import           Data.Map            (Map, keys, (!))
-    import qualified Data.Map            as M
-
-    data Point = Point
-        { pointX, pointY :: Double
-        , pointName      :: String
-        } deriving (Show)
+import           Data.Map            (Map, keys, (!))
+import qualified Data.Map            as M
 
+data Point = Point
+    { pointX, pointY :: Double
+    , pointName      :: String
+    } deriving (Show)
+```
 Configuration
 -------------
 
-- 
cgit v1.2.3