Skip to content

Instantly share code, notes, and snippets.

% haskell-language-server-wrapper Example.hs
No 'hie.yaml' found. Try to discover the project type!
Run entered for haskell-language-server-wrapper(haskell-language-server-wrapper) Version 2.9.0.1 x86_64 ghc-9.10.1
Current directory: /tmp
Operating system: linux
Arguments: ["Example.hs"]
Cradle directory: /tmp
Cradle type: Default
Tool versions found on the $PATH
diff --git a/krpc.cabal b/krpc.cabal
index c565bd2..85d03e5 100644
--- a/krpc.cabal
+++ b/krpc.cabal
@@ -53,7 +53,7 @@ library
, monad-control >= 0.3
, monad-logger >= 0.3
, bencoding >= 0.4.3
- , network >= 2.3
+ , network >= 2.3 && <= 3.0
diff --git a/src/Data/IntervalSet/ByteString.hs b/src/Data/IntervalSet/ByteString.hs
index 0e569e5..de3a7e8 100644
--- a/src/Data/IntervalSet/ByteString.hs
+++ b/src/Data/IntervalSet/ByteString.hs
@@ -24,6 +24,7 @@ import qualified Data.ByteString as BS
import qualified Data.ByteString.Internal as BS
import Control.Monad as CM
import Foreign
+import System.IO.Unsafe
inits_inits' [Occ=LoopBreaker] :: Text -> [Text]
[GblId, Arity=1, Str=<1L>, Unf=OtherCon []]
inits_inits'
= \ (ds :: Text) ->
case ds of {
Empty -> [] @Text;
Chunk bx bx1 bx2 ts ->
let {
z :: [Text]
[LclId]
@kindaro
kindaro / DB.hs
Last active August 31, 2023 19:50
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE UndecidableInstances #-}
module DB where
import Data.Aeson
import GHC.Generics
import Types (User)
% npm install
up to date, audited 220 packages in 1s
61 packages are looking for funding
run `npm fund` for details
found 0 vulnerabilities
% npm run check
% haskell-language-server-wrapper
No 'hie.yaml' found. Try to discover the project type!
Run entered for haskell-language-server-wrapper(haskell-language-server-wrapper) Version 1.9.1.0 x86_64 ghc-9.4.4
Current directory: /home/kindaro/code/haskell/bookmark
Operating system: linux
Arguments: []
Cradle directory: /home/kindaro/code/haskell/bookmark
Cradle type: Cabal
Tool versions found on the $PATH
{-# language GHC2021, UnicodeSyntax, BlockArguments, LambdaCase #-}
{-# language AllowAmbiguousTypes #-}
{-# language MonoLocalBinds #-}
import Data.List (nubBy, sortBy)
import Data.Function (on, fix, (&))
import Data.String (IsString (fromString))
import Text.Read (readMaybe)
import Prelude hiding (lookup)
import Prelude qualified
packages:
servant-purescript-codegen-example/server
servant-purescript
purescript-bridge
servant-errors
@kindaro
kindaro / WeirdFish.hs
Last active September 16, 2022 07:19
-- Inspired by <https://duplode.github.io/posts/traversable-a-remix.html>.
module WeirdFish where
import Control.Monad
import Control.Monad.Free
import Data.Functor.Classes
type Nice functor = (Functor functor, Show1 functor)