diff options
| author | Ben Sima <ben@bsima.me> | 2024-05-03 22:34:10 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-05-09 21:38:52 -0400 |
| commit | d71c6f8c5955e8a9861e3f3957b293a369aac954 (patch) | |
| tree | da77bbbec8e082a77c0d553cf2216dce9b4ced0b /Alpha.hs | |
| parent | d36b4360c9c359e6eea480b39e9699b1deae70f1 (diff) | |
Switch to nixpkgs-23.11, ghc 9.6.3
This brings a bunch of improvements. I got rid of some custom packages, I can
now build exllama without using a non-default cuda version. Oh yeah and I get to
use GHC 9.6.2 now, a huge upgrade from 9.4. Unfortunately I also updated ormolu
and some unrelated formatting changed, but that's life I guess.
Diffstat (limited to 'Alpha.hs')
| -rw-r--r-- | Alpha.hs | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -110,7 +110,7 @@ g <. f = compose f g -- | Alias for map, fmap, <$> -- -- Pronunciation: gal-fas -(</) :: Functor f => (a -> b) -> f a -> f b +(</) :: (Functor f) => (a -> b) -> f a -> f b f </ g = fmap f g -- | Double fmap. A function on the right goes "into" two functors @@ -152,17 +152,17 @@ infixl 1 |> -- functor. Could also be defined as `f +> return <. g` -- -- Pronunciation: fas-gar -(/>) :: Functor f => f a -> (a -> b) -> f b +(/>) :: (Functor f) => f a -> (a -> b) -> f b f /> g = fmap g f infixl 1 /> -bind :: Monad m => m a -> (a -> m b) -> m b +bind :: (Monad m) => m a -> (a -> m b) -> m b bind a f = a Prelude.>>= f {- HLINT ignore "Use +>" -} -(+>) :: Monad m => m a -> (a -> m b) -> m b +(+>) :: (Monad m) => m a -> (a -> m b) -> m b a +> b = a Prelude.>>= b infixl 1 +> @@ -189,7 +189,7 @@ _ ?+ [] = panic "wutlus: empty cond list" a ?< f = if not a then f a else panic "wutgal failed" -- | When. wutbar -(?|) :: Applicative f => Bool -> f () -> f () +(?|) :: (Applicative f) => Bool -> f () -> f () a ?| f = when a f -- | Removes newlinse from a string. @@ -253,5 +253,5 @@ str = toS instance StringConv Int String where strConv _ = show -tshow :: Show a => a -> Text +tshow :: (Show a) => a -> Text tshow = show |