Format language pragmas

Author: grayjay

src/Network/JsonRpc/Server.hs

@@ -1,6 +1,6 @@
-{-# LANGUAGE CPP,
-             Rank2Types,
-             OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE Rank2Types #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 -- | Functions for implementing the server side of JSON-RPC 2.0.
 --   See <http://www.jsonrpc.org/specification>.

src/Network/JsonRpc/Types.hs

@@ -1,11 +1,11 @@
-{-# LANGUAGE CPP,
-             MultiParamTypeClasses,
-             FunctionalDependencies,
-             FlexibleInstances,
-             UndecidableInstances,
-             TypeOperators,
-             TypeSynonymInstances,
-             OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE MultiParamTypeClasses #-} -- required by GHC 7.0.1
+{-# LANGUAGE FunctionalDependencies #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE UndecidableInstances #-}
+{-# LANGUAGE TypeOperators #-}
+{-# LANGUAGE TypeSynonymInstances #-} -- required by GHC 7.0.1
+{-# LANGUAGE OverloadedStrings #-}
 
 module Network.JsonRpc.Types ( RpcResult
                              , Method (..)

tests/Internal.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE CPP,
-             OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Internal ( request
                 , errRsp

tests/TestParallelism.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE CPP,
-             OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module TestParallelism (testParallelizingTasks) where
 

tests/TestSuite.hs

@@ -1,5 +1,5 @@
-{-# LANGUAGE CPP,
-             OverloadedStrings #-}
+{-# LANGUAGE CPP #-}
+{-# LANGUAGE OverloadedStrings #-}
 
 module Main (main) where