stylish-haskell: fixes

Author: coot

typed-protocols-examples/test/Network/TypedProtocol/PingPong/Tests.hs

@@ -1,8 +1,8 @@
-{-# LANGUAGE CPP                      #-}
-{-# LANGUAGE DataKinds                #-}
-{-# LANGUAGE FlexibleInstances        #-}
-{-# LANGUAGE GADTs                    #-}
-{-# LANGUAGE NamedFieldPuns           #-}
+{-# LANGUAGE CPP               #-}
+{-# LANGUAGE DataKinds         #-}
+{-# LANGUAGE FlexibleInstances #-}
+{-# LANGUAGE GADTs             #-}
+{-# LANGUAGE NamedFieldPuns    #-}
 
 -- orphaned arbitrary instances
 {-# OPTIONS_GHC -Wno-orphans #-}

typed-protocols-examples/test/Network/TypedProtocol/ReqResp/Tests.hs

@@ -1,11 +1,11 @@
-{-# LANGUAGE CPP                      #-}
-{-# LANGUAGE DataKinds                #-}
-{-# LANGUAGE FlexibleInstances        #-}
-{-# LANGUAGE GADTs                    #-}
-{-# LANGUAGE NamedFieldPuns           #-}
-{-# LANGUAGE PolyKinds                #-}
-{-# LANGUAGE ScopedTypeVariables      #-}
-{-# LANGUAGE TupleSections            #-}
+{-# LANGUAGE CPP                 #-}
+{-# LANGUAGE DataKinds           #-}
+{-# LANGUAGE FlexibleInstances   #-}
+{-# LANGUAGE GADTs               #-}
+{-# LANGUAGE NamedFieldPuns      #-}
+{-# LANGUAGE PolyKinds           #-}
+{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE TupleSections       #-}
 
 -- orphaned arbitrary instances
 {-# OPTIONS_GHC -Wno-orphans #-}

typed-protocols/src/Network/TypedProtocol.hs

@@ -18,8 +18,8 @@ module Network.TypedProtocol
   ) where
 
 import           Network.TypedProtocol.Core
-import           Network.TypedProtocol.Peer
 import           Network.TypedProtocol.Driver
+import           Network.TypedProtocol.Peer
 import           Network.TypedProtocol.Proofs
 
 

typed-protocols/src/Network/TypedProtocol/Codec.hs

@@ -51,7 +51,7 @@ module Network.TypedProtocol.Codec
   , prop_codecs_compatM
   , prop_codecs_compat
   , SomeState (..)
-    -- ** StateToken 
+    -- ** StateToken
   , StateToken
   , StateTokenI (..)
   ) where

typed-protocols/src/Network/TypedProtocol/Driver.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE BangPatterns        #-}
-{-# LANGUAGE FlexibleContexts    #-}
 {-# LANGUAGE DataKinds           #-}
 {-# LANGUAGE EmptyCase           #-}
+{-# LANGUAGE FlexibleContexts    #-}
 {-# LANGUAGE GADTs               #-}
 {-# LANGUAGE NamedFieldPuns      #-}
 {-# LANGUAGE PolyKinds           #-}

typed-protocols/src/Network/TypedProtocol/Peer/Client.hs

@@ -14,7 +14,7 @@
 module Network.TypedProtocol.Peer.Client
   ( Client
   , ClientPipelined
-  , TP.PeerPipelined(ClientPipelined, runClientPipelined)
+  , TP.PeerPipelined (ClientPipelined, runClientPipelined)
   , pattern Effect
   , pattern Yield
   , pattern Await

typed-protocols/src/Network/TypedProtocol/Peer/Server.hs

@@ -14,7 +14,7 @@
 module Network.TypedProtocol.Peer.Server
   ( Server
   , ServerPipelined
-  , TP.PeerPipelined(ServerPipelined, runServerPipelined)
+  , TP.PeerPipelined (ServerPipelined, runServerPipelined)
   , pattern Effect
   , pattern Yield
   , pattern Await