diff options
| -rw-r--r-- | README.markdown | 55 |
1 files 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 ------------- |