hlint styling fixes

import Control.Applicative ((<|>), liftA2)

import Data.Monoid ((<>))

import Data.Maybe (fromMaybe)

import Data.Text.Lazy (Text)

import qualified Data.Text.Lazy as L

import Text.Read (readMaybe)

getClientIP2 :: ActionM (Maybe Text)

getClientIP2 =

  fmap (maybe Nothing (Just . firstElement)) (header "X-FORWARDED-FOR") where

  fmap (fmap firstElement) (header "X-FORWARDED-FOR") where

      firstElement :: Text -> Text

      firstElement = head . L.splitOn ","

    return $ case r of

      Nothing -> defaultValue

      Just [] -> defaultValue

      Just xs -> case stringReader xs of

                   Nothing -> defaultValue

                   Just x -> x

      Just xs -> fromMaybe defaultValue (stringReader xs)

getListenPort :: IO Int

getListenPort = getEnvDefault "PORT" 8081 readMaybe

main = do

  port <- getListenPort

  scotty port $ do

    get "/" $ getClientIP

    get "/" getClientIP