{-# LANGUAGE ScopedTypeVariables #-}

 {-# LANGUAGE TypeApplications #-}

 {-# LANGUAGE ViewPatterns #-}

 -----------------------------------------------------------------------------

 -- |

 -- Module      :  Language.Haskell.GHC.ExactPrint.Transform

 import GHC.Types.SrcLoc

 import Data.Data

 import Data.List.NonEmpty (NonEmpty (..))

 import qualified Data.List.NonEmpty as NE

 import Data.Maybe

   where

     -- we want DPs for the distance from the end of the ns to the

     -- AnnDColon, and to the start of the ty

     dca' = case dca of

           EpaSpan ss@(RealSrcSpan r _) -> (EpaDelta ss (ss2delta (ss2posEnd rd) r) [])

           _                            -> dca

               where

                 cs'' = setPriorComments cs []

                 csd = L (EpaDelta ss dp NoComments) c:commentOrigDeltas cs'

                 delta = case getLoc lc of

                           EpaSpan (RealSrcSpan rr _) -> ss2delta (ss2pos rr) r

                           EpaSpan _ -> (SameLine 0)

 {-# LANGUAGE NamedFieldPuns #-}

 {-# LANGUAGE RankNTypes #-}

 {-# LANGUAGE ScopedTypeVariables #-}

 module Utils

   -- (

 import GHC.Parser.Lexer (allocateComments)

 import Data.Data hiding ( Fixity )

 import qualified Data.Map.Strict as Map

 import Debug.Trace

 ghead _info (h:_) = h

 glast :: String -> [a] -> a

 gtail :: String -> [a] -> [a]

 gtail  info []    = error $ "gtail " ++ info ++ " []"

 {-# LANGUAGE DataKinds #-}

 {-# LANGUAGE TupleSections #-}

 {-# LANGUAGE ScopedTypeVariables #-}

 -- Fine if this comes from make/Hadrian or the pre-built base.

 #include <ghcplatform.h>

 module GHC.Toolchain.CheckArm ( findArmIsa ) where

 import Data.Maybe (catMaybes)

 import Control.Monad.IO.Class

 import System.Process

           _ -> throwE $ "unexpected output from test program: " ++ out

 lastLine :: String -> String

 -- | Raspbian unfortunately makes some extremely questionable packaging

 -- decisions, configuring gcc to compile for ARMv6 despite the fact that the

 {-# LANGUAGE TupleSections #-}

 {-# LANGUAGE TypeApplications #-}

 {-# LANGUAGE TypeFamilies #-}

 -- |

 -- Module      :  Haddock.Backends.Html

         divAlphabet

           << unordList

             ( map (\str -> anchor ! [href (subIndexHtmlFile str)] << str) $

                 ]

                   ++ [merged_name]

             )

           writeUtf8File (joinPath [odir, subIndexHtmlFile [c]]) (renderToString debug html)

         where

           html = indexPage True (Just c) index_part

       index :: [(String, Map GHC.Name [(Module, Bool)])]

       index = sortBy cmp (Map.toAscList full_index)

 {-# LANGUAGE LambdaCase #-}

 {-# LANGUAGE OverloadedStrings #-}

 {-# LANGUAGE ViewPatterns #-}

 -- |

 -- Module      :  Documentation.Haddock.Parser

 import Control.Monad

 import Data.Char (chr, isAlpha, isSpace, isUpper)

 import Data.Functor (($>))

 import Data.Maybe (fromMaybe, mapMaybe)

 import Data.Monoid

 import qualified Data.Set as Set

   DocCodeBlock . parseParagraph . dropSpaces

     <$> ("@" *> skipHorizontalSpace *> "\n" *> block' <* "@")

   where

           Just (' ', _) -> case mapM dropSpace ys of

             Nothing -> xs

             Just zs -> T.intercalate "\n" zs