diff options
| -rw-r--r-- | users/Profpatsch/my-webstuff/src/Multipart2.hs | 16 | ||||
| -rw-r--r-- | users/Profpatsch/netencode/Netencode/Parse.hs | 1 | ||||
| -rw-r--r-- | users/Profpatsch/whatcd-resolver/build.ninja | 29 |
3 files changed, 8 insertions, 38 deletions
diff --git a/users/Profpatsch/my-webstuff/src/Multipart2.hs b/users/Profpatsch/my-webstuff/src/Multipart2.hs index 17246546ab35..5c283a3c1be8 100644 --- a/users/Profpatsch/my-webstuff/src/Multipart2.hs +++ b/users/Profpatsch/my-webstuff/src/Multipart2.hs @@ -108,7 +108,7 @@ parseMultipartOrThrow throwF parser req = do Success a -> pure a -- | Parse the field out of the multipart message -field :: Applicative m => ByteString -> FieldParser ByteString a -> MultipartParseT backend m a +field :: (Applicative m) => ByteString -> FieldParser ByteString a -> MultipartParseT backend m a field fieldName fieldParser = MultipartParseT $ \mp -> mp.inputs & findMaybe (\input -> if fst input == fieldName then Just (snd input) else Nothing) @@ -118,7 +118,7 @@ field fieldName fieldParser = MultipartParseT $ \mp -> & pure -- | Parse the field out of the multipart message -field' :: Applicative m => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (FormValidation a) +field' :: (Applicative m) => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (FormValidation a) field' fieldName fieldParser = MultipartParseT $ \mp -> mp.inputs & findMaybe (\input -> if fst input == fieldName then Just $ snd input else Nothing) @@ -136,15 +136,15 @@ field' fieldName fieldParser = MultipartParseT $ \mp -> & pure -- | Parse the field out of the multipart message, and into a 'Label' of the given name. -fieldLabel :: forall lbl backend m a. Applicative m => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (Label lbl a) +fieldLabel :: forall lbl backend m a. (Applicative m) => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (Label lbl a) fieldLabel fieldName fieldParser = label @lbl <$> field fieldName fieldParser -- | Parse the field out of the multipart message, and into a 'Label' of the given name. -fieldLabel' :: forall lbl backend m a. Applicative m => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (FormValidation (Label lbl a)) +fieldLabel' :: forall lbl backend m a. (Applicative m) => ByteString -> FieldParser ByteString a -> MultipartParseT backend m (FormValidation (Label lbl a)) fieldLabel' fieldName fieldParser = fmap (label @lbl) <$> field' fieldName fieldParser -- | parse all fields out of the multipart message, with the same parser -allFields :: Applicative m => FieldParser (T2 "key" ByteString "value" ByteString) b -> MultipartParseT backend m [b] +allFields :: (Applicative m) => FieldParser (T2 "key" ByteString "value" ByteString) b -> MultipartParseT backend m [b] allFields fieldParser = MultipartParseT $ \mp -> mp.inputs <&> tupToT2 @"key" @"value" @@ -157,7 +157,7 @@ tupToT2 (a, b) = T2 (label a) (label b) -- | Parse a file by name out of the multipart message file :: - Applicative m => + (Applicative m) => ByteString -> MultipartParseT backend m (MultipartFile Lazy.ByteString) file fieldName = MultipartParseT $ \mp -> @@ -172,14 +172,14 @@ file fieldName = MultipartParseT $ \mp -> -- | Return all files from the multipart message allFiles :: - Applicative m => + (Applicative m) => MultipartParseT backend m [MultipartFile Lazy.ByteString] allFiles = MultipartParseT $ \mp -> do pure $ Success $ mp.files -- | Ensure there is exactly one file and return it (ignoring the field name) exactlyOneFile :: - Applicative m => + (Applicative m) => MultipartParseT backend m (MultipartFile Lazy.ByteString) exactlyOneFile = MultipartParseT $ \mp -> mp.files diff --git a/users/Profpatsch/netencode/Netencode/Parse.hs b/users/Profpatsch/netencode/Netencode/Parse.hs index e55eedf568db..184fb5f9129b 100644 --- a/users/Profpatsch/netencode/Netencode/Parse.hs +++ b/users/Profpatsch/netencode/Netencode/Parse.hs @@ -13,7 +13,6 @@ import Data.Map.NonEmpty qualified as NEMap import Data.Semigroupoid qualified as Semigroupiod import Data.Semigroupoid qualified as Semigroupoid import Data.Text qualified as Text -import Label import Netencode qualified import PossehlAnalyticsPrelude import Prelude hiding (log) diff --git a/users/Profpatsch/whatcd-resolver/build.ninja b/users/Profpatsch/whatcd-resolver/build.ninja deleted file mode 100644 index 026f100a2e82..000000000000 --- a/users/Profpatsch/whatcd-resolver/build.ninja +++ /dev/null @@ -1,29 +0,0 @@ -builddir = .ninja - -rule cabal-run - command = cabal run $target - -rule cabal-repl - command = cabal repl $target - -rule cabal-test - command = cabal test $target - -rule hpack-file - description = hpack $in - command = $ - hpack --force $in $ - && touch $out - -build repl : cabal-repl | cabal-preconditions - target = whatcd-resolver-server - pool = console - -build run : cabal-run | cabal-preconditions - target = whatcd-resolver-server - pool = console - - -build cabal-preconditions : phony whatcd-resolver-server.cabal - -build whatcd-resolver-server.cabal : hpack-file package.yaml |