Add record aligning to README

1 files changed, 16 insertions, 7 deletions

diff --git a/README.markdown b/README.markdown
index 9520cd1..82b6107 100644
--- a/README.markdown
+++ b/README.markdown
@@ -38,30 +38,39 @@ Turns:
     {-# LANGUAGE GeneralizedNewtypeDeriving,
                 ViewPatterns,
         ScopedTypeVariables #-}
-    
+
     module Bad where
-    
+
     import Control.Applicative ((<$>))
     import System.Directory (doesFileExist)
-    
+
     import qualified Data.Map as M
     import      Data.Map    ((!), keys, Map)   
 
+    data Point = Point
+        { pointX, pointY :: Double
+        , pointName :: String
+        } deriving (Show)
+
 into:
 
     {-# LANGUAGE GeneralizedNewtypeDeriving #-}
     {-# LANGUAGE ScopedTypeVariables        #-}
     {-# LANGUAGE TemplateHaskell            #-}
-    {-# LANGUAGE ViewPatterns               #-}
-    
+
     module Bad where
-    
+
     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)
+
 Configuration
 -------------