import qualified M → import M qualified

blog-meta/lib/NiceDate.hs

@@ -1,10 +1,10 @@
 module NiceDate (niceDate) where
 
-import Text.Pandoc.Definition
-import qualified Data.Map.Strict as Map
-import Misc
 import Control.Monad.Writer
+import Data.Map.Strict qualified as Map
 import Data.Monoid
+import Misc
+import Text.Pandoc.Definition
 
 niceDate :: Meta -> Meta
 niceDate (Meta m) =

blog-meta/lib/SlugTags.hs

@@ -1,10 +1,9 @@
 module SlugTags (slugTags) where
 
-import Text.Pandoc.Definition
+import Data.Map.Strict qualified as Map
-import qualified Data.Map.Strict as Map
--- import Text.Pandoc.JSON
 import Data.Text (Text)
 import Misc
+import Text.Pandoc.Definition
 
 slugTags :: Meta -> Meta
 slugTags (Meta m) = Meta $ Map.adjust addSlugs "tags" m

blog-meta/lib/YAML.hs

@@ -1,15 +1,15 @@
 {-# OPTIONS_GHC -Wno-orphans #-}
 module YAML (module YAML, module Data.YAML, untagged) where
 
+import Data.ByteString (ByteString)
+import Data.ByteString.Char8 qualified as BS8
+import Data.ByteString.Lazy qualified as LazyBS
+import Data.Text (Text)
+import Data.Text qualified as Text
 import Data.YAML
 import Data.YAML.Event (untagged)
-import Data.Text (Text)
-import qualified Data.Text as Text
 import Misc
-import Data.ByteString (ByteString)
+import System.IO qualified as IO
-import qualified Data.ByteString.Char8 as BS8
-import qualified Data.ByteString.Lazy as LazyBS
-import qualified System.IO as IO
 
 
 str' :: String -> Node ()