Fix hlint warnings

Author: hasufell

.hlint.yaml

@@ -3,3 +3,4 @@
 - ignore: {name: "Use if"}
 - ignore: {name: "Use fmap"}
 - ignore: {name: "Use uncurry"}
+- ignore: {name: "Use unless"}

System/OsPath/Posix.hs

@@ -15,7 +15,7 @@ pstr :: QuasiQuoter
 pstr =
   QuasiQuoter
   { quoteExp = \s -> do
-      ps <- either (fail . show) pure $ encodeWith (mkUTF8 ErrorOnCodingFailure) $ s
+      ps <- either (fail . show) pure $ encodeWith (mkUTF8 ErrorOnCodingFailure) s
       when (not $ isValid ps) $ fail ("filepath now valid: " ++ show ps)
       lift ps
   , quotePat  = \_ ->

System/OsPath/Windows.hs

@@ -16,7 +16,7 @@ pstr :: QuasiQuoter
 pstr =
   QuasiQuoter
   { quoteExp = \s -> do
-      ps <- either (fail . show) pure $ encodeWith (mkUTF16le ErrorOnCodingFailure) $ s
+      ps <- either (fail . show) pure $ encodeWith (mkUTF16le ErrorOnCodingFailure) s
       when (not $ isValid ps) $ fail ("filepath now valid: " ++ show ps)
       lift ps
   , quotePat  = \_ ->

System/OsString/Common.hs

@@ -251,7 +251,7 @@ pstr =
   QuasiQuoter
 #ifdef WINDOWS
   { quoteExp = \s -> do
-      ps <- either (fail . show) pure $ encodeWith (mkUTF16le ErrorOnCodingFailure) $ s
+      ps <- either (fail . show) pure $ encodeWith (mkUTF16le ErrorOnCodingFailure) s
       lift ps
   , quotePat  = \_ ->
       fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"
@@ -262,7 +262,7 @@ pstr =
   }
 #else
   { quoteExp = \s -> do
-      ps <- either (fail . show) pure $ encodeWith (mkUTF8 ErrorOnCodingFailure) $ s
+      ps <- either (fail . show) pure $ encodeWith (mkUTF8 ErrorOnCodingFailure) s
       lift ps
   , quotePat  = \_ ->
       fail "illegal QuasiQuote (allowed as expression only, used as a pattern)"