Remove unescape workaround by upgrading to html-conduit 1.1.1.2

Pinging @DanBurton @chrisdone

src/soh-upload/Main.hs

@@ -265,21 +265,12 @@ metadataUpdatesFromBS bs = case parseFrontmatter bs of
 readFileBS :: File -> IO ByteString
 readFileBS File{..} = BS.readFile $ T.unpack $ fileName <> fileExtension
 
-unescape :: ByteString -> ByteString
-unescape
-  = T.encodeUtf8
-  . T.replace "&amp;" "&"
-  . T.replace "&gt;" ">"
-  . T.replace "&lt;" "<"
-  . T.replace "&quot;" "\""
-  . T.decodeUtf8
-
 saveUpdate :: Context -> File -> Manager -> SaveConfig -> IO Bool
 saveUpdate context file@File{..} manager saveConfig@SaveConfig{..} = do
   content <- readFileBS file
   let (metadataUpdates, content') = metadataUpdatesFromBS content
   content'' <- preprocessMarkdown content'
-  didUpdateContent <- if (unescape content'' == oldContent)
+  didUpdateContent <- if (content'' == oldContent)
     then return False
     else do
       req <- postSaveReq context fileName saveConfig content''

src/soh-upload/cabal.config

@@ -479,7 +479,7 @@ constraints: abstract-deque ==0.3,
              hsyslog ==2.0,
              HTF ==0.12.2.4,
              html ==1.0.1.2,
-             html-conduit ==1.1.1.1,
+             html-conduit ==1.1.1.2,
              HTTP ==4000.2.19,
              http-client ==0.4.9,
              http-client-openssl ==0.2.0.1,

src/soh-upload/soh-upload.cabal

@@ -24,7 +24,7 @@ executable soh-upload
     , http-client-tls >=0.2
     , http-types >=0.8
     , directory >=1.2
-    , html-conduit >=1.1
+    , html-conduit >=1.1.1.2
     , xml-conduit >=1.2
     , pcre-light >=0.4
     , resourcet >=1.1