import qualified Data.Ascii as A
import qualified Data.ByteString.Lazy as L
import Data.Char
-import Data.Foldable
-import Data.List
+import Data.Collections
+import Data.List (intersperse)
import Data.Ratio
import Data.Time
import Language.Haskell.TH.Lib
import Network.HTTP.Lucu.MIMEType
import Network.HTTP.Lucu.Resource
import Network.HTTP.Lucu.Utils
+import Prelude hiding (head)
import Prelude.Unicode
header ∷ Input → Doc
, text "where"
])
-importDecls ∷ Imports ImportOp → Doc
-importDecls = vcat ∘ map pprImport ∘ toList
+importDecls ∷ Imports → Doc
+importDecls = vcat ∘ map pprImport ∘ fromFoldable
pprImport ∷ ImportOp → Doc
pprImport (QualifiedImp {..})
, hcat [ lparen
, sep $ punctuate comma
$ map (uncurry pprImpName)
- $ toList ns
+ $ fromFoldable ns
, rparen
]
]