Small whitespace fix.

2016-01-28 11:07:59 +01:00 · 2016-01-28 11:07:59 +01:00 · 2934bac40c
commit 2934bac40c
parent c532ecffd5
1 changed files with 1 additions and 1 deletions
--- a/servant-server/src/Servant/Server/Internal/RoutingApplication.hs
+++ b/servant-server/src/Servant/Server/Internal/RoutingApplication.hs
@ -159,7 +159,7 @@ data Delayed :: * -> * where
          -> Delayed c

 instance Functor Delayed where
-   fmap f (Delayed a b c g) = Delayed a b c ((fmap.fmap.fmap) f g)
+   fmap f (Delayed a b c g) = Delayed a b c ((fmap . fmap . fmap) f g)

 -- | Add a capture to the end of the capture block.
 addCapture :: Delayed (a -> b)