diff options
author | Artyom Kazak <yom@artyom.me> | 2017-05-31 23:40:19 +0300 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-05-31 23:40:19 +0300 |
commit | fd96055ef151d9ba0e38fbc518f63254c22d0eef (patch) | |
tree | bb230846ebe00035a2cf3498ee710d09354b6ee1 | |
parent | 03e1712b9da40c366f459b53555963e69eb288ec (diff) | |
parent | 24d2699ce23fefd8991a73f80174b2f97309889f (diff) | |
download | stylish-haskell-fd96055ef151d9ba0e38fbc518f63254c22d0eef.tar.gz |
Merge pull request #171 from 5outh/readme-highlighting
Add syntax highlighting to README examples
-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 ------------- |